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IDENTIFICATION 

PRODUCT NAME: CNDUVAO DUV11 OFLNE COMBINED 
PRODUCT CODE: AC=T459A-MC 

PRODUCT DATE:DEC, 1982 
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COPYRIGHT (C) 1982,1983 
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DIGITAL NEQUIPMENT CORPORATION ee NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
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-REM * 
GENERAL DESCRIPTION 


he 
| 
THIS DIAGNOSTIC CAN CHAIN 16 DUV11°S. THIS MEANS THAT 
16 DEVICES CAN BE 2 gy LETH Eee THE wee 
MAKES ONE PASS BEFORE PROCEEDING TO THE NEXT DEVICE, 
ad seh ssmes EXERCISING ALL DEVICES IN THIS FASHION UNTIL 


REM * 
1. THE DUV11 OFFLINE COMBINED TESTS VERIFY THAT THE TRANSMITTER 
AND RECEIVER CAN TALK THRU THE EXTERNAL MODEM CABLE 
PROVIDING THAT THE H315 CONNECTOR IS ON 
* 
REM * 


2. REQUIREMENTS 
PDP=11/21 COMPUTER (LSI) 
DUV11 SYNCRONOUS/ISOCRONOUS OPTION 
ONE CONSOLE TELETYPE OR EQUIVALENT 


2.2 STORAGE 
THE PROGRAM LOADS INTO 4K OF MEMORY WITH BOOTSTRAP 
3. LOADING PkOCEDURE 
THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
IS TO BE USED. 
STARTING ADDRESS 
FOR ABSOLUTE LOADER 
4K 017500 
8K 037500 
12k 057500 
16K 077500 
20k 117500 
24K 137500 
28k 157500 
4. STARTING PROCEDURE 


4.1 CONTROL SWITCH SETTINGS 
NOTE: ALL SWITCHES RESIDE INTERNAL TO THE CPU AT ADDRESS 
176, THESE MAY BE SET VIA THE CONSOLE TTY BY DIRECTLY 
MODIFYING LOC. 176. 


NOTE: RUNNING UNDER APT~11, THERE IS A USER SWITCH REGISTER 
CALLED nein’ IN ORDER He BE FLEXIBLE ON THE AVAILIBILITY OF THE 


I TO 
BIT 0 IN SUSUR” REFLECTS THIS STATUS, A 0 = CONNECTOR 
PRESENT, A 1 = CONNECTOR NOT AVAILIBLE 
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THE USER Ye THE CONTENTS OF THIS LOCATION 


WHEN BUILDING THE E TABLE, BY ANSWERING THE 
PROMPT “‘SWITCH 2°'. 


4.1.1 AFTER PROGRAM LOAD (INITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 


4.1.2 TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART OR TO RUN MULTIPLE DEVICES 


SwO00=1 
4.1.3 TO START ae ie AT SELECTED TEST A el A PROGRAM RESTART 
suotst Y IN SINGLE DEVICE TESTS) 


4.1.4 TO LOCK ON SELECTED TEST AFTER A PROGRAM RESTART 
(ONLY IN SINGLE DEVICE TESTS) 


SW14=1 
NOTE1: IN GENERAL SWO1 WILL BE USED WHEN SW14=1 IS oe 
NOTE2: WITHOUT SWO1=1 ‘‘LOCK ON TEST*’ WILL DEFAULT TO TEST 1 


4.2 STARTING ADDRESS 
THE STARTING ADDRESS FOR ALL TESTS IS 000200 
THE RETARTING ADDRESS FOR ALL TESTS IS 000200 
THE STARTING ADDRESS TO LOCK ON TESTIS 000200 
4.3 PROGRAM AND/OR OPERATOR ACTION 
4.3.1 INITIAL PROGRAM START 
4.3.1.1 LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER 
4.3.1.2 SET SWITCH REGISTER (LOC. 176) TO ZERO. 
4.3.1.3 TYPE 2006. 
4.3.1.4 PROGRAM WILL START. 


4.3.1.5 THE PROGRAM WILL TYPE ‘DUV11 CNDUV-A TAPE F'* (ONCE ONLY) 
4.3.1.6 THE PROGRAM WILL TYPE ‘‘k’* TO INDICATE THAT IT IS ABOUT 
TO START TESTING ,AND THEN TESTING WILL BEGIN 
4.3.2 PROGRAM RESTART WITH ALL SWITCHES DOWN 
4.3.2.1 THE PROGRAM WILL TYPE ‘'R'’ AND WILL COMMENCE TESTING 
4.3.3 PROGRAM RESTART WITH SwWOO=1 
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4.3.3.1 SET SWITCH REGISTER (LOC. 176) TO A 000001. 
4.3.3.2 TYPE 200G. 
4.3.3.3 PROGRAM WILL START. 


4.3.3.4 i PROGRAM WILL TYPE ** 1ST DEVICE: RECEIVER CONTROL REGISTER 
DDRESS** AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.5 TYPE IN THE ts OF THE FIRST ashlee CONTROL 
REGISTER ADDRESS OF THE Dut’: 79 BE TESTED 
FOLLOWED BY A CCARRIAGE RE TURN> 


IF AN INCORRECT ADDRESS JS TYPED Ny | PROGRAM WILL TYPE ‘'?"* 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.4 


4.3.3.6 THE PROGRAM WILL TYPE ‘VECTOR ADDRESS~"* AND WAIT FOR AN 
‘SPUT FROM THE TELETYPE KEYBOARD 


4.3.3.7 TYPE IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS 
FOR THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 
IF AN INCORRECT ADDRESS IS TYPED | PROGRAM WILL TYPE ‘*?"' 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.6 


4.3.3.8 ne PROGRAM WILi TYPE ‘ARE YOU RUNNING MULTIPLE DEVICES ?°° 
Y OR N)="' AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.9 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
<CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS GIVEN, THE PROGRAM WILL TYPE ‘'?*' 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.8 


IF A ‘NO*" ANSWER IS GIVEN: JUMP TO SECTION 4.3.3.12 
IF A ""YES’’ ANSWER IS GIVEN: THE NEXT QUESTION IS ASKED 


4.3.3.10 THE PROGRAM WILL TYPE “LAST DEVICE:RECEIVER CONTROL 
RF SISTER ADDRESS~"* AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.11 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL REGISTER 


ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS TYPED , THE PROGRAM WILL TYPE ‘'?°' 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.10 
~ NOTE:ALL ADDRESSES SHALL BE CONTIGUOUS 


4.3.3.11.1 IF AN ‘OUT OF RANGE*’ ADDRESS IS TYPED 


IE. MORE THAN 16 (10) DEVICES AWAY (UPWARDS).....THE 
PROGRAM WILL TYPE ‘OUT OF RANGE:RETYPE LAST DEVICE RXCSR ADDRESS-"* 


SEQ 0004 


————S—$§_$<$_——— ——— 
F 1 
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AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.11.2 TYPE _IN THE ADDRESS OF THE LAST RECEIVER CONTROL 


REGISTER ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED 
BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS TYPED ,THE + meee WILL TYPE °'?"° 
AND WILL REPEAT THE MESSAGE OF 4.3.3.11.1 


IF A DEVICE ADDRESS LOWER THAN 1ST DEVICE vies Fe TS TYPED. .cccccccce 
»++eSCHOOLS OUT......... THERE IS NO PROTECTION FOR TH 

THE PROGRAM WILL DEFAULT TO TWO DEVICES ACTIVE (UPWARDS FROM 

1ST DEVICE ADDRESS).THE SAME APPLIES TO IDENTICAL ADDRESSES 

TYPED FOR FIRST AND LAST DEVICE. 

OBSERVE LOCATION @ ACTREG: SEE SECTION 7.2 


4.3.3.12 THE PROGRAM WILL TYPE ‘# OF SYNC CHARS 
SELECTED (1 OR 2)="* AND WAIT FOR AN INPUT FROM THE TELETYPE 
Sorte £45 ares TO MANUAL FOR PROPER SWITCH SETTINGS OF 


4.3.3.13 TYPE IN THE APPROPRIATE ANSWER ‘"1'* OR ‘2°’ FOLLOWED 
44 Be eed RETURN>.(NOTE:ALL MULTIPLE DEVICES MUST 


IF AN INCORRECT ANSWER IS TYPED ,THE PR GRAM WILL TYPE ‘'?** 
AND WILL REPEAT THE MESSAGE OF 4.3.3.1 


4.3.3.14 THE PROGRAM WILL TYPE *’ IS SEC XM"* 3W1.CH E55=2 ON? (Y OR N)-"' 
AND WAIT FOR AN INPUT FROM THE TELETYPE Ke YBOARD 
4.3.3.15 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


BY A <CARRIAGE RETURN>.(NOTE THAT ALL MULTIPLE DEVICES 
MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED ,THE ee WILL TYPE °'?°* 
AND WILL REPEAT THE MESSAGE OF 4.3.3.14 


| 
4.3.3.16 THE PROGRAM WILL TYPE "IS SEC REC SWITCH E55-3 ON? 


(Y OR N)="' AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.17 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 
BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 
IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘'?°' 
AND WILL REPEAT THE MESSAGE OF 4.3.3.16 


4.3.3.18 THE PROGRAM WILL TYPE ‘IS OPT CLR ENABLE SWITCH 
E55-1 ON? (Y OR N)="" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.19 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 
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BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED ,THE — WILL TYPE °*?°° 
AND WILL REPEAT THE MESSAGE OF 4.3.3.18 


4.3.3.20 THE PROGRAM WILL TYPE my YOU_RUNNING IN MAINT. 
MODE EXTERNAL ? AND ......DO0 YOU HAVE THE EXTERNAL MODEM 
BYPASS JUMPER CONN NECTOR ON ? (Y OR N)="* AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.21 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY 
A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 
IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘‘?"' 
AND WILL REPEAT THE MESSAGE OF 4.3.3.20 


4.3.3.22 THE PROGRAM WILL TYPE ‘'R'* TO INDICATE THAT IT 
HAS STARTED AND WILL COMMENCE TESTING AT TEST 1 


4.3.4 ts > pe RESTART WITH SWO1=1 
OTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
wit WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED 


IF MULTIPLE DEVICES WERE PREVIOUSLY SELECTED,LOAD 000200, 
—- SELECT SWOO=1 AND ANSWER "'NO'’ TO THE MULTIPLE DEVICE QUESTION 


4.3.4.1 SET SWO1=1 IN SWITCH REG (LOC. 176) 
4.3.4.2 TYPE 200G. 
4.3.4.3 PROGRAM WILL START. 


4.3.4.4 THE PROGRAM WILL TYPE ‘‘TEST PC-"* AND WAIT FOR AN INPUT FROM 
THE TELETYPE KEYBOARD 


4.3.4.5 TYPE_IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 
BE STARTED FOLLOWED BY A <CARRIAGE RETURN> 


4.3.4.6 THE PROGRAM WILL TYPE ‘'R*’ TO INDICATE THAT IT HAS STARTED 
TESTING AT THE SELECTED TEST 


NOTE: CARE MUST BE TAKEN WHEN THIS FEATURE IS USED 
SINCE THERE IS NO te ee: AGAINST SELECTING AN ADDRESS 
THAT IS IN THE MIDDLE OF A TEST 
4.3.5 PROGRAM RESTART WITH SW14 =1 
NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
SEE NOTE IN 4.3.4 FOR MORE DETAILS 
4.3.5.1 SET SW14=1 IN SWITCH REG. (LOC. 176) 


4.3.5.2 TYPE 200G. 
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| 4.3.5.3 PROGRAM WILL START. 


4.3.5.4 THE PROGRAM WILL TYPE “LOCK ON SELECTED TEST ? (Y OR N)-"" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.5.5 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
<CARRIAGE RETURN> 


IF A_NO ANSWER IS GIVEN: THIS LOCK ON TEST WILL BE IGNORED 
AND THE PROGRAM WILL TYPE ‘'R’’ TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 


4.3.5.6 IF A YES ANSWER WAS GIVEN: THE SOI tATE WILL ACT AS FOLLOWS... 


THE PROGRAM WILL TYPE ‘'R’’ TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 AND WILL REMAIN IN TEST 1 UNTIL HALTED 
OR ANY PROGRAM 


A $w01 =1 
WILL PERFORM AS _IN SECTION 4.3.4 ALLOWING ONE TO FREEZE 
ON A SELECTED TEST RATHER THAN DEFAULTING TO TEST 1 


5. OPERATING PROCEDURE 
5.1 OPERATIONAL SWITCH SETTINGS (INTERNAL TO THE CPU, ACCESSED VIA LOC. 176). 
5 HALT ON ERROR 


$W15 =1 

SW14 =1 LOOP ON CURRENT TEST 

SW13 =1 INHIBIT ERROR TYPEOUT 

SW11 =1 INHIBIT ITERATIONS 

SW10 =1 ESCAPE TO not TEST ON ERROR 

SWO9 =1 LOOP ON ERR 

Sw01 =1 RESTART PROGRAM AY SELECTED TEST 

Sw00 = RESELECT VECTOR AND CONTROL aettiat ADRESSES 
S_AFTER A_PROGRAM RESTA 


&PARAMETER 
TO INHIBIT “END OF PASS'* TYPEOUT = TURN TELETYPE OFF 
6. ERRORS 


6.1 ERROR HALTS (UNDER LSI ALL HALT ERRORS RETURN CONTROL TO 0.D.T.) 
THERE ARE FOUR DISTINCT ERROR TYPEOUTS 


6.1.1 PC+2 = ERROR 
WHERE PC +2 1S” THE ADDRESS OF THE CALL TO THE ERROR HANDLER +2 


REFER TO THE ABOVE “'HLT’’ IN DIAGNOSTIC FOR ERROR DESCRIPTION 


CHECK ADDRESS @ RXCSR: TO LOCATE THE DEVICE PRESENTLY UNDER 
TEST WHEN RUNNING MULTIPLE DEVICES 


6.1.2 Be _hesisten ERROR PC 
REGIST EXPECTED ACTUAL 
TEXXXK YYYYYY 222222 
WHERE 16XXXX IS THE ADDRESS OF THE FAILING DEVICE REGISTER 


WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 


ee ee ee — 
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WHERE Z2227Z !S THE ACTUAL CONTENTS OF THAT REGISTER 


6.1.5 PC +2 = RECEIVER ceert PC 
REGISTER EXPECTED ACTUAL 
TOXXXX YYYYYY 222222 


WHERE 16XXXX IS THE ADDRESS OF THE FAILING RECEIVER (RXDBUF) REGISTER 
WHERE YYYYYY IS THE EXPECTED DATA CONTENTS OF THAT REGISTER 
WHERE Z2Z22Z IS THE ACTUAL DATA CONTENTS OF THAT REGISTER 


6.1.4 PC rite mines ERROR PC 
REGIS EXPECTED ACTUAL 
NEXXXK YYYYYY 222222 


WHERE 16XXXX IS THE ADDRESS OF THE FAILING TRANSMITTER (TXCSR) REGISTER 
WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 
WHERE 2Z22ZZ IS THE ACTUAL CONTENTS OF THAT REGISTER 


6.1.5 ERROR DESCRIPTIONS 
SEE LISTINGS FOR DETAILS OF ERRORS 


6.2 ERROR RECOVERY 


6.2.1 Swi5 =0 
IF THE PROGRAM IS RUN WITH SW15 =0 ,NO OPERATOR ACTION IS 
REQUIRED TO CONTINUE TESTING 


6.2.2 ovis =1 
IF THE PROGRAM IS RUN WITH SW15 =1 ,TO CONTINUE TESTING 
AFTER THE PROGRAM HAS HALTED PRESS THE PROCESSOR 
CONSOLE “CONTINUE SWITCH*’ 


NOTE: THE PC + 2 OF THE ‘‘HLT’* WILL BE DISPLAYED IN THE DATA LIGHTS 


6.2.3 ILLEGAL INTERRUPTS 
IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED 
DURING PROGRAM INITIALIZATION, THE PROGRAM WILL HALT IN 
THE TRAPCATCHER. THE ADDRESS AT WHICH THE PROGRAM 
HALTS IS 2 GREATER THAN THE ADDRESS TO WHICH THE INTERRUPT 
OCCURED. THE PROGRAM MUST BE RESTARTED AT 000200 TO 
RECOVER FROM THIS ERROR. 


| 
| 
| 
| 
6.2.4 ADDITIONAL TROUBLESHOOTING AIDS ERRCNT: & PASCN 
CHECK THESE TWO TAG LOCATIONS FOR TOTAL # OF ERRORS AND PASSES RESPECTIVELY. 
LOADING 000200 AND RESTARTING WILL CLEAR THESE LOCATIONS. 


6.3 END OF PASS ROUTINE 
THIS TYPEOUT i arnt LOM HERE FOR CONVENIENCE 
IT IS IN THE FORM 


CNDUV=A MACY11 30(1046) 14=DEC-82 10:03 PAGE 57-8 
‘CNDUVILMI11 - 10=DEC-82 13:53 SEQ 0009 


END OF PASS TAPE Y 
T6XXXX = DEVICE 


WHERE Y IS THE TAPE LOADED 
WHERE 16XXXX IS THE DEVICE'S BASE REGISTER ADDRESS 
TO INHIBIT THIS TYPEOUT = TURN TELETYPE OFF 

v. RESTRICTIONS 


7.1 MULTIPLE DEVICES 
UP TO 16(10) DEVICES MAY BE TESTED. HOWEVER, THEY 
MUST HAVE CONTIGUOUS ADDRESSES AND VECTORS 


NOTE: IF ALL DEVICES UNDER ad HAVE THE SAME INTERRUPT VECTOR 
YOU CAN CHANGE ‘ZERO: ADD ee NEXT BLOCK 
(VECTORS)*’ TO “ZERO: ADD #0,BA 3 

THEREBY THE VECTOR ADDRESSES WILL NOT Be’ 

UPDATED AFTER EACH PASS. 


7.2 DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES 


WHEN RUNNING MULTIPLE DEVICES AN ACTIVE ", H SET 
FOR EACH DEVICE RUNNING UNDER TEST IE. BIT 0 F 

DEVICE 0 ,BIT 15 FOR DEVICE 15 

TO DISQUALIFY DEVICES: 


7.2.1 IF DEVICE 0 IS TO — DISQUALIFIED ,SIMPLY RESTART 
PROGRAM WITH SWOO =1 AND OMIT THE FIRST DEVICE. 


7.2.2 IF HOWEVER, DEVICES 1 THRU 15 OR ANY COMBINATION THEREOF 
ARE TO BE DISQUALIFIED....LOAD THE LOCATION OF ACTREG: 
OBSERVE THE ACTIVE BITS (ACTIVE =1, NONACTIVE = 0 
AND DEPOSIT 0 WHERE THOSE DEVICES ARE TO BE DISQUALIFIED 


7.2.2.1 TO RESTART...TYPE 200G.. 
THE PROGRAM WILL CONTINUE WITH THE DEVICE IT WAS IN BEFORE HALTING. 


ANSWER" PE "QUESTION 1ST DEVICE § ETC. cccccavoes 
weeeTHE PROGRAM WILL CONTINUE WITH DEVICE 0 


7.2.2.3 IF ALL DEVICES ARE DISQUALIFIED BY MISTAKE __THE PROGRAM 
WILL TYPEOUT AN ERROR MESSAGE.......TYPE 200G. 


7.3 CABLE DELAYS 
NOTE: EXTERNAL LOOP BACK TESTS ONLY (MODEM CABLE WITH H315 CONNECTOR ON) 


7.3.1 TO PROVIDE SUFFICIENT DELAY FOR CLOCK SIGNAL OVER THE CABLE, 
LOCATION “‘HOI.D:"* MUST BE MODIFIED TO ACCOMODATE FOR FASTER MACHINES. 
PRESENTLY “HOLD:"* =20 IS SUFFICIENT TIME ON AN 11/21 MACHINE. 
BASICALLY DON'T TRY TO EXCEED 10K TO 12K RATE USING THE EIA DRIVERS 


7.4 TO USE THE ‘*XOR"’ TESTER ,THE BRANCH AROUND THE ‘‘xOR"’ 
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CODE MUST BE PATCHED TO A “'NOP’’. (SEE LISTINGS FOR DETAILS) 


8. DEFAULT PARAMETERS 
1ST DEVICE: RECEIVER CONTROL REGISTER ADDRESS RXCSR: 174300 
VECTOR ADDRESS= DURIV: 330 
ARE YOU RUNNING MULTIPLE DEVICES ?= NO MULTD: 0 
| LAST DEVICE: RECEIVER CONTROL REGISTER ADDRESS- LASTADD: 0 
| # OF SYNC CHARS SELECTED - 2 SYNCNO: 377 
IS SEC XMIT SWITCH E55-2 ON?= YES | SEXMIT: 377 
IS SEC REC SWITCH E553 ON?= YES SEREC: 377 


IS OPT CLR ENABLE SWITCH E55=-1 ON?= YES OPTCLR: 377 
DO YOU HAVE THE EXTERNAL MODEM BYPASS JUMPER 


| 
| 
| 
9. PROGRAM DESCRIPTION 


CONNECTOR ON (H315)= YES JMRBY: 377 
* 
REM * 
9.1 THIS PROGRAM PERFORMS THE OFFLINE COMBINED (TRANSMITTER & RECEIVER) 
CABLE TESTING OF THE DEVICE 
SEE LISTING FOR DETAILS 
* 
REM * 


10. FLOW CHARTS: RECEIVER FLOW, TRANSMITTER FLOW, TRANSMITTER & RECEIVER FLOW 


11, REVISION HISTORY 
DZDUVB1 DIAGNOSTIC WAS MODIFIED TO WORK IN 11/21 PROCESSOR 
PRIORITY340 WAS CHANGED TO 300 WHEREVER ENCOUNTERED 
DEFAULT CSR AND ie HAVE BEEN CHANGED 
-INIT CALL ADDED AT THE END. 
12 SIAGNOS TIC WAS RENAMED TO CNDUVAO. 


[oso 
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6489 
6588 
6589 
6590 
6601 
6615 
6616 
6617 
6678 
6679 
6884 
7012 
7013 .SBTTL APT COMMUNICATIONS ROUTINE 
(2) . s PARABAAZAAAAALAALALAAALALALALALLSELALE ALAS SESE SEL EE SER REE RSS Coo 
(1) 000 112767 000001 000236 $ATY1: MOVB #1,$FFLG ::TO REPORT FATAL ERROR 
(1) 000006 112767 000001 000226 $ATY3: MOVB #1 ,SHFLG ::TO TYPE A MESSAGE 
(1) 000014 000403 BR SATYC 
(1) 000016 112767 000001 000220 SATY4: MOVB #1,$FFLG ::T0 ONLY REPORT FATAL ERROR 
(1) 000024 $ATYC: 
(3) 000024 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 000026 010146 MOV R1,-(SP) *:PUSH R1 ON STACK 
(1) 000030 105767 000206 TSTB $MFLG 3s SHOULD TYPE A MESSAGE? 
(1) 000034 001450 BEQ 5 ‘IF NOT: 
(1) 000036 122767 000001 001502 CMPB sss WAP TENV, SENV : OPERATING UNDER APT? 
(1) 000044 001031 BNE 
(1) 000046 132767 000100 001473 BITB § #APTSPOOL,$ENVM £ SHOULD’ SPOOL MESSAGES? 
(1) 000054 001425 BEQ :IF NOT: B 
(1) 000056 017600 000004 MOV 4 (SP) RO tIGET MESSAGE ADDR. 
(1) 000062 062766 000002 000004 ADD #2,4 UMP RETURN ADDR. 
(1) 000070 005767 001432 1$: TST saccryPe z:SEE IF BONE W/ LAST XMISSION? 
(1) 000074 001375 BNE 1$ t:1F NOT: WAIT 
(1) 000076 010067 001440 MOV RO, $MSGAD 
(1) :;PUT ADDR IN MAILBOX 
(1) 000102 105720 2$: TSTB «(ROD + zzFIND END OF MESSAGE 
(1) 000104 001376 BNE $ 
(1) 000106 166700 001430 SUB SMSGAD,RO :SUB START OF MESSAGE 
(1) 000112 006200 ASR RO :3GET MESSAGE LNGTH IN WORDS 
(1) 000114 010067 001424 MOV RO, $MSGLGT T LENGTH IN MAILBOX 
(1) 000120 012767 000004 001400 MOV #4, $MSGTYPE 3 TELL APT TO TAKE MSG. 
(1) 000126 000413 BR 
(1) 000130 017667 000004 000016 3$: MOV a4 (SP) ,4$ 33PUT MSG ADDR IN JSR LINKAGE 
(1) 000136 062766 000002 000004 ADD #2,4(SP) RETURN ADDRESS 
(3) 000144 016746 177626 MOV 177776, -(SP) PUSH 16 ON STACK 
(1) 000150 004767 012716 JSR PC, $TYPE [:CALL TYPE MACRO 
(1) 000154 000000 4$: .WORD 0 
(1) 000156 5$: 
(1) 000156 105767 000062 10$: STB  $FFLG 33$HOULD REPORT FATAL ERROR? 
(1) 000162 001416 BEQ 12$ tIF NOT: BR 
(1) 000164 005767 001356 TST SENV 3: RUNNING UNDER APT? 
(1) 000170 001413 BEQ 12$ 
(1) 000172 005767 001330 11$: TST SMSGTYPE HIF INISHED LAST MESSAGE? 
(1) 000176 001375 BNE NOT: WAIT 
(1) 000200 017667 000004 001322 MOV a4(SP),$FATAL  ::GET ERROR | ‘ 
(1) 000206 062766 000002 000004 ADD #2,4(SP) RETURN ADDR. 
(1) 000214 005267 001306 INC SMSGTYPE Si TELL abi? O TAKE ERROR 


‘ Renee eee 
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APT COMMUNICATIONS ROUTINE 


12$: CLRB 


SMFLG: .BYTE 
$LFLG: .BYTE 


SFFLG: .BYTE 


-EVEN 
APTSIZE=200 


APTENV=001 
APTSPOOL=100 
APTCSUP=040 
$TN=1 


SFFLG 


;;LOG FLAG 


32CLEAR ‘oa FLAG 
33CLEAR LOG FLAG 

4h ae MESSAGE FLAG 
33POP STACK INTO R1 

fis — INTO RO 


RETUR 
: MESSG. FLAG 


3FATAL FLAG 


SEQ 0012 


-CNDUV=A MACY11 30(1046) 14=DEC*82 10:03 PAGE 60 
CNDUV2.M11--30-0CT=82 12:25 APT COMMUNICATIONS ROUTINE 


SEQ 0013 


a 
CNDUV=A MACY11_30(1046) 


CNDUVA.M11 


ARR AR RRA ARR AR AAA RRA RAF ARR RAR AR AA AR AAA AAA AAA RRR ARAL RR ARAAO 
PODINININYNYNININYNYINDNYNININININININONONINININYINININONININITPONPYNINDPINNYNINYINININININPYNPYNINININNPNPyPyf~—y 
i SS BS Se 


30-0CT- 82 


001100 


000011 
177776 
177774 


177570 
170000 
000000 


090200 
000240 


14 
12: 


~DEC-82 
45 


10:03 PAGE 61 


B 2 


APT COMMUNICATIONS ROUTINE 


~ENABLE ABS 


3DUV11_CNDUV=A_TAPE F 
;COPYRIGHT 1977, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


STARTING PROCEDURE 
TYPE 2006 


;PROGRAM WILL Aa *DUV11 CNDUV-A TAPE F ° 
TYPE “’R"’ TO INDICATE THAT TESTING HAS STARTED 


;PROGRAM WILL 
sAT THE END OF A reetl PROGRAM WILL TYPE ‘END OF PASS TAPE F*’ 


zAND THEN RESUME T 


:IN_ORDER TO SE SPECIFIC TO SBC 11/21 PROCESSOR 
7PR7 WAS REPLACED WITH PR6 AND #340 REPLACED ine fF #300 
:Dz Oa bavi? Cheek Tor TO CN AND REV CORRECTED 


: MCALL 


~SBTTL BASIC DEFINITIONS 


ca he OF THE STACK POINTER *** 1100 *** 


3sBASIC DEFINITION OF ERROR CALL 
:BASIC DEFINITION OF SCOPE CALL 


iacaniains | tana DEFINITIONS 


STACK= 
-EQUIV EMT,ERROR 
-EQUIV I0T,SCOPE 


T= 1 ::CODE FOR HORIZONTAL TAB 
LF= 12 ::CODE FOR LINE FEED 
CR= 15 i: CODE FOR CARRIAGE 
CRLF= 200 

S= 177776 ‘PROCESSOR STATUS WOR 
.EQUIV PS,PSW 

STKLMT= 177776 z:STACK LIMIT REGISTER 
PIRQ= 177772 
DSWR= 177570 : S HARDWARE SWITCH REGIST 
DDISP= 177570 WARE DISPLAY REGISTE 
pooeet THE FOLLOWING OD 
ODTST= 1700 

; GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 7:GENERAL REGISTER 
R1= 1 3 ENERAL REGISTER 
R2= %2 :: GENERAL REGISTER 
R3= 13 [GENERAL RECISTER 
R4= 24 [:GENERAL REGISTER 
R5= “5 T:GENERAL REGISTER 
R6= %6 ::GENERAL REGISTER 
R7= %7 ;;GENERAL REGISTER 

SP= %6 t:STACK POINTER 
PC= 27 +:PROGRAM COUNTER 


ep 
BRO 

PRi= 40 

PR2= 10 

PR35= 14 

PR4= 00 
PR5= 40 


RETURN 
ODE FOR CARRIAGE ee FEED 


3;PROGRAM_ INTERRUPT GISTER REGISTER 


i’ START ADDRESS FOR SBC i721 IS ADDED 


V-A TAPE F OF DIAGNOSTIC UHEREVER FOUND. 
INCLUDED TO INITIALIZE START ADDRESS OD ODT. 


SEQ 0014 | 


eS ee Se 


, a Ale 
¢ 2 
“CNDUV-A MACYT1 301046) 14=DEC~B2 10:03, PAGE 61-1 


NDUVA.M11 30-OCT-82 12:45 BASIC DEFINITIONS SEQ 0015 
(2) 000300 PR6= 300 s;PRIORITY LEVEL 
is} 000340 PR7= 340 s;PRIORITY LEVEL 
| ¢) "SWITCH REGISTER’ SWITCH DEFINITIONS 

(2) 100000 éyigs 100006 

(2) 040000 SW14= 40000 

(2) 020000 Sw13= 20000 

(2) 010000 Swi2= 10000 

(2) 004000 Swil= 4000 

(2) 000 Swi0= 2000 

(2) 001000 sw09= 1000 

(2) 00 sw08= 400 

(2) 000200 SwO7= 200 

(2) 000100 Sw06= 100 

(2) 000040 swos= 4 

(2) 000020 Sw04= 20 

(2) 000010 SwO3= 10 

(2) 000004 SWO2= 4 

(2) 000002 SWO1= 2 

(2) 000001 swoo= 1 

(2) -EQUIV $W09,SW9 
(2) -EQUIV SW08,SW8 
(2) eEQUIV SWO7,SW7 
(2) IV SW06,SW6 
(2) eEQUIV SwW0S,SW5 
(2) “EQUIV $W04,S 

(2) SEQUIV SW03.SW3 
(2) sFQUIV SW02,SW2 
(2) eEQUIV SWO1,SW1 
(2) sEQUIV $wO00, 

(2) :*DATA BIT DEFINITIONS (BITOO TO B1T15) 
(2) 100000 BIT15= 100000 

(2) 040000 BIT14= 40000 

(2) 020000 BIT13= 20000 

(2) 010000 BIT12= 10000 

(2) 004000 BIT11= 4000 

(2) 002000 BIT10= 2000 

(2) 001000 BITO9= 1000 

(2) 000400 BITO8= 400 

(2) 000200 BITO7= 200 

(2) 000100 BIT06= 100 

(2) 000040 BITOS= 40 

(2) 000020 BITO4= 20 

(2) 000010 BITO3= 10 

(2) 000004 BITO2= 4 

(2) 000002 BITO1= 2 

(2) 000001 BITOO= 1 

(2) -EQUIV BITO9,BIT9 
(2) “EQUIV B1T08,B81T8 
(2) -EQUIV BITO7,BIT7 
(2) -EQUIV BITO6,BIT6 
(2) sEQUIV BITOS.BITS 
(2) sEQUIV BITO4,BITS 
(2) -EQUIV BIT03,BIT3 
(2) EQUIV BIT02.B1T2 


“CNDUV=A MACY11_30(1046) 
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i ee te es 


14=DEC-82 10:03 PAGE 61-2 


CNDUVA.M11 30-OCT-82 12:45 BASIC DEFINITIONS SEQ 0016 
(2) -EQUIV B1T01,81T1 
‘s} -EQUIV BITO0,B1TO 
(2) ;*BASIC *'CPU'’ TRAP VECTOR ADDRESSES 
(2) 000004 ERRVEC= 4 ;TIME OUT AND OTHER ERRORS 
(2) 000010 RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
(2) 000014 TBITVEC=14 ie “T’' BIT 
(2) 000014 TRIVEC= 14 33 TRACE TRAP 
(2) 000014 BPTVEC= 14 : ]BREAKPOINT TRAP (BPT 
(2) 000020 IOTVEC= 20 NPUT/OUTPUT TRAP (LOT) **SCOPE*s 
(2) 000024 PWRVEC= 24 :POWER FAIL 
(2) 000030 EMTVEC= 30 :ZEMULATOR TRAP (EMT) **ERROR** 
(2) 00034 TRAPVEC=34 **TRAP’* TRAP 
(2) 000060 TKVEC= 60 ITTY Ba 34) 
(2) 64 TPVEC= 64 ;TTY PRINTER VECT 
(2) peeeee THE FOLLOWING BREAK VECTOR AND LINE. CLOCK VECTOR ARE INCLUDED 
(2) 000100 LKVEC= 100 3;LINE CLOCK VECTOR 
(2) 000140 BRKVEC= 140 :;BREAK VECTOR 
(2) 000240 PIRQVEC=240 2 ;PROGRAM INTERRUPT REQUEST VECTOR 


| 
i] 
| 
} 
! 
| 
| 


ee 


(2) 


RRAARAR AR RA ARR RA AAR ARAR AAA AAA AAA AAA AAA AE 
PIPINININININININONINNYNINYINININININININYNININININININININININININYINNPYPyroery 
eS BS SS SS 


000174 
000176 


000200 


CNDUV=A_ MACY11_ 30(1046) 
CNDUVA.M11 


000174 
0 
000167 


001100 
000000 
177570 


000000 


000000 


“000020 


000000 
00 


000000 


14=DEC-82 10:03 PAGE 61-3 
BASIC DEFINITIONS 


30-OCT-82 12:45 


001746 


STANDARD INTERRUPT VECTORS 


22174 
DISPREG:0 


SWREG:0 
0 


JMP o START :GO TO START OF PROGRAM 


-WORD 0 
LIGHTS:177570 


RETURN: 
N : 


oooo0oo 


PROGRAM CONTROL PARAMETERS 


s ADDRESS OF NEXT TEST TO BE a> 
ADDRESS FOR pase ON CURRENT DAT 
; ADDRESS’ “CONTAINING ASS COUNT 
STACK POINTER STORAGE 


PROGRAM VARIABLES 


20 TEMPORARY STORAGE=DELAY TIME FOR went 

0 S TEMPORARY STORAGE= : OF SHIFTS PER CHA 

0 ; TEMPORARY STORAGE= # OF TIMES A CHAR ute BE SENT 
8 zPROGRAM COUNTER STORAGE 

0 

0 

0 

0 

0 

0 


a a a = a 


SEQ 0017 


a rivets dosanystgjtinstlisinriinpaedig naj desiiniinaeiariaininantendnianitandtiiantianainal ; - 
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‘CNDUVA.M11 —- 30-OCT-82 12:45 BASIC DEFINITIONS SEQ 0018 
(2) ;PROGRAM_CONVERSATIONAL PARAMETERS 
(2) 001146 = 377 SYNCNO: :BYTE 377  ;# OF SYNC CHARS REQ’ D FOR SYNC* ZATION 
(2) 001147 = 377 SEXMIT: .BYTE 377 © 3SEC XMIT JUMPER ‘“IN’ 
(2) 001150 = 377 SEREC: BYTE 377 SEC REC JUMPER IN 
(2) 001151 = 377 OPTCLR: .BYIE 377 OPTIONAL JUMPER CLR "IN 
(2) 001152 000 MULTD: BYTE 0 :NO MULTIPLE DEVICE FLAG bw 
(2) 001153577 JMRBY: BYTE 377 ZEXTERNAL MODEM BYPASS JUMPER “IN 
(2) 
(2) :PROGRAM MULTIPLE DEVICE PARAMETERS 
(2) 001154 000000 BASEADD: 0 {PROG CONTROLLED 1ST DEVICE ADDR 
(2) 001156 000000 KEEPADD 0 :SAVED 1ST DEVICE ADDR 
(2) 001160 000000 LASTADD 0 ZLAST DEVICE RXCSR ADDR 
(2) 00 000000 BASEIV 0 :PROG CONT 
(2) 000000 KEEPIV: 0 ZSAVED INTR VECT 
(2) 001166 000000 ACTREG: 0 ZACTIVE REGISTER ,,,MODIFY THIS 
(2) ZLOCATION TO DISQUALIFY OR QUALIFY 
(2) :DEVICES (1= RUN,,,0= DON'T RUN) 
(2) 001170 000000 ROTADD: 0 :ROTATING POINTER FOR ACTREG. .POINT 
2) :TO DEVICE PRESENTLY UNDER TEST WHEN RUNNING AULTIPLE DEVICES 
@) :PROGRAM CONTROL FLAGS 
(2) 001172 000 INIFLG: .BYTE 0 {PROGRAM INITIALIZATION FLAG 
(2) 001173 000 STFLG: BYTE 0 :TEST STA 
(2) 001174 000 LOKFLG: BYTE 0 LOCK ON CURRENT TEST FLAG 
(2) 001176 -EVEN 
(1) 001400 :=1400 
(2) 
(2) 


f——s—— -- — ---- + + - ee ee aes — aoe _ - 
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CNDUVA. M11 30-OCT-82 12:45 BASIC DEFINITIONS SEQ 0019 
(2) 
| § 
| 
| (2) s INSTRUCTION DEFINITIONS 
i (2) 005746 PUSH1SP=5746  ;DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
| © 005726 POP1SP=5726 ZINCREMENT PROCESSOR STACK 1 WORD =TST (SP)+ 
(2) 010046 PUSHRO=10046 ; SAVE RO ON STACK =MOV RO,-(SP) 
| 2) 012600 POPRO=12600 SRESTORE RO FROM STACK =MOV (SP)+,RO 
(2) 024646 PUSH2SP=24646 :DECREMENT STACK TWICE =CMP =-(SP).=(SP) 
(2) 022626 POP2SP=22626 §: INCREMENT STACK TWICE =CMP (SP)+.(SP)+ 
(2) :REGISTER DEFINITIONS 
(2) XCSR BIT DEFINITIONS 
(2) 100000 DSC=B1T1 18 DATA SET CHANGE 
(2) 040000 RING=B1T14 tR N 
(2) 020000 CTS=BIT13 ‘CLR TO SEND 
(2) 010000 CARDET=B1T12 [CARRIER DETECT 
(2) 004000 RECACT=BIT11 TREC ACTIVE 
(2) 002000 SRD=B1T10 ‘SEC REC DATA 
(2) 001000 DSR=BIT9 SDATA SET RDY 
(2) STPSYN=B1T8 :STRIP SYNC 
(2) 000200 RXDONE=B1T7 REC 
(2) 000100 RINTEN=BIT6 ‘REC INTR ENABLE 
(2) 000040 DSINTE=BIT5 [DSC _INTR ENABLE 
(2) 000020 SYNSCH=BIT4 SYN 
(2) 00 STD=BIT3 [SEC XMIT DATA 
(2) 000004 RTS=BIT2 [REQ TO SEND 
(2) 000002 DTR=BI1T1 [DATA TERM RDY 
(2) 000001 VOID=BITO 
(2) sRXDBUF BIT DEFINITIONS 
(2) 100000 RXERR=BIT15 >REC ER ROR 
(2) 040000 OVRRUN=BIT14 SOVERRU: 
(2) 020000 FRMERR=B1T13 FRAME UERROR 
(2) 010000 PARER=B1T12 *PARITY ERROR 
(2) ARCSR BIT DEFINITI ONS 
(2) 001000 PAREN=B119 NABLE 
(2) 000400 EVPAR=B1T8 “EVEN PARITY SENSE 
(2) -PARCSR WRD DEFINITIONS 
(2) 030000 SYNINT=30000 :SYNC EXTERNAL MODE 
(2) 020000 SYNEXT=20000 ‘SYNC INTERNAL MODE 
(2) 000000 1SYMOD=0 : MODE 
(2) 000000 FIVE= ‘WORD LENGTH 5 BITS 
(2) 002000 $1X=2000 SWORD LENGTH 6 BITS 
(2) 004000 SEVEN=4000 SWORD LENGTH 7 BITS 
(2) 006000 EI1GHT=6000 ; WORD LENGTH 8 BITS 
(2) 000000 NOPAR=0 -NO PARITY 
(2) 001000 ODDPAR=1000 $000 PARITY 
(2) 001400 EVEPAR=1400 VEN PARITY 
(2) -TXCSR BIT DEFINITIONS 
(2) 100000 DNA=B1T15 sDATA Sor AVAILABLE 
(2) 040000 MTDATA=BI1T14 ‘MAINT DATA 
(2) 020000 CLK=BIT13 CLK 
(2) 002000 BITW=B1T10 ‘BIT WINDOW 
(2) 000400 MRE SET=BITS *MASTER RESET 
(2) 000200 TXDONE=B11T7 *XMIT DONE 
(2) 000100 TXINTE=B1T6 :XMIT INTR ENABLE 


/CNDUV=A_MACY11_30(1046) peegec-se 


-CNDUVA.M11 30-OCT-82 12:4 


014000 
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BASIC DEFINITIONS 


DNAINTE=B1T5 ZDNA INTR ENAB 
HDXEN=BIT3 : HDX/FDX 
BREAK=B1T0 REAK 

sTXCSk WRD DEFINITIONS 
USER= 2U pE 
MINT=4000 :MAINT INT MODE 
MEXT=10000 ‘MAINT EXT MODE 
SYSTST=14000 [SYSTEM TEST MODE 


SEQ 0020 


/CNDUV=A _MACY11_30(1046) 
30-OCT-82 12: 


_CNDUVA. M11 


~ 
Nm 
~ 


, Lalalatatatatatalateatatatiataliatatatalteatatatatatatatatetatatatatatalateteateatateateatiata 
BH SHS SNNNNNNNINNNNININININININININININININININININININININININPYPony nw 


0 8 SS BS BS SS BS SS 
oS 
= 
* 
So 


001400 


400 000000 
000 


0 

001455 002 

001456 012 
57 


000 
000000 
000000 
0 0 


000000 
saa 


(4) 001500 

(4) 001502 0 

(4) 001504 00 

(4) 001506 000000 
(4) 001510 000000 
(2) 001512 000000 
(2) 001514 00000 
(2) 001516 177607 
(2) 001522 07 


I 2 
PY ts 10:03 PAGE 61-7 
45 COMMON TAGS 


»~SBTTL COMMON TAGS 


FERRARA ARERERAREREAE EEE EAE EEEAAEERERAEAEEREREEEREEAHEREEEEEEE 


TATHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
7*USED IN THE PROGRAM. 


SCHTAG: do ::START OF COMMON TAGS 
STSTNM: .BYTE 0 :: CONTAINS THE TEST NUMBER 
SERFLG: .BYTE 0 CONTAINS ERROR FLAG 
SICNT: .WORD 0 CONTAINS SUBTEST ITERATION COUNT 
SLPADR: .WORD 0 CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0 : CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 : CONTAINS TOTAL ERRORS DETECTED 
ITEMB: .BYTE 0 Zi CONTAINS ITEM CONTROL BYTE 
SERMAX: .BYTE 1 :CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 ::CONTAINS BC OF LAST ERROR, INSTRUCTION 
S$GDADR: .WORD 0 : CONTAINS ADDRESS OF ‘GOOD’ DAT 
$BDADR: .WORD 0 SECONTAINS ADDRESS OF BAD" DATA 
SGDDAT: .WORD 0 ::CONTAINS {GOOD" DATA 
SBDDAT: .WORD 0 SCONTAINS *BAD* DAT 
-WORD 9 TRESERVED=-NOT TO BE USED 
$AUTOB: .BYTE 0 : AUTOMATIC MODE INDICATOR 
SINTAG: .BYTE 0 INTERRUPT MODE INDICATOR 
WR:  .WORD DSWR ADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD DDISP DRESS OF DISPLAY REGISTER 
$TkS: 177560 ITTY KBD STATUS 
$TKB: 177562 i: TTY KBD BUFFER 
$TPS: 177564 Z:TTY PRINTER STATUS REG. ADDRESS 
$TPB: 177566 ::TTY PRINTER BUFFER REG. ADDRESS 
$NULL: .BYTE 0 :: CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 
gCONTAINS # OF FILLER CHARACTERS. REQUIRED 
sriuic: .evre 13 sINSERT FILL CHARS. AFTER A “LINE FEED" 
S$TPFLG: .BYTE 0 ::"TERMINAL AVAILABLE*’ FLAG (BIT<07>=0=VES) 
$REGAD: .WORD 0 RAL he THE ADDRESS FROM 
:WHICH (SREGO) WAS OBTAINED 
$REGO: .WORD 0 :CONTAINS ((SREGAD) +0 
$REGI: .WORD 0 : CONTAINS (($REGAD) +2) 
$REG2: WORD 0 33 (($REGAD) +4) 
$REG3: WORD 0 Z:CONTAINS (($REGAD) +6) 
$REG4: WORD 0 Z: CONTAINS (($REGAD) +10) 
$REGS: WORD 0 :SCONTAINS, ( (SREGAD) +12) 
$TMPO: WORD 0 3:USER DEFINED 
$TMP1: WORD 0 3:USER DEFINED 
STMP2: .WORD 0 Z:USER DEFINED 
STMP3: WORD 0 3:USER DEFINED 
STMP4: WORD 0 3:USLR DEFINED 
$TMPS: .WORD 0 :2USER DEFINED 
STIMES: 0 NUMBER OF ITERATIONS 
SESCAPE :0 STESCAPE ON ERROR ADDRESS 
000377 SBELL: .ASCIZ <207><377><377> 3;CODE FOR BELL 
SQUES: <ASCII /2/ TTQUESTION MARK 


SEQ 0021 


CNDUV=A MACY11_30(1046) 14=DEC-82 10:03 PAGE 61-8 
CNDUVA.M11 —- 30-OCT-82 12:45 COMMON TAGS SEQ 0022 
(2) 001523 015 SCRLF: eASCII <15> i CARRIAGE RETURN 
(2) 001524 000012 SLF ASCIZ <12> SSLINE FEED 
(3) PITITITIITIITI TLL TII TILL LITiT TTT LT iLL iL Li LiL LLL 
(3) *SBTTL APT MAILBOX-ETABLE 
(4) eaeN aa er Sn | ee eee ee oe 
(3) 001526 $MAIL: ::APT MAILBOX 
(3) 001526 000000 SMSGTY: .WORD AMSGTY : MESSAGE TYPE CODE 
(3) 901530 000000 SFATAL: .WORD AFATAL TAL ERROR NUMBER 
(3) 001532 000000 STESTN: .W ATESIN :: Test NUMBER 
(3) 001534 000 SPASS: .W S  ::PASS COUNT 
(3) 001536 000000 SDEVCT: .W ADEVCT ;;DEVIC T 
(3) 001540 000000 SUNIT: .WORD AUNIT ::1/0 UNIT R 
(3) 001542 000000 SMSGAD: .WORD AMSGAD ::MESSAGE ADDRESS 
(3) 001544 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LE 
(3) 001546 SETABLE: T ENVIRONMENT TABLE 
(3) 001546 000 SENV:  .BYTE AENV : SENVIRONMENT BYTE 
(3) 001547 000 SENVM: BYTE 
(3) > sENVIRONMENT MODE BITS 
(3) 001550 000000 $SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
(3) 001552 000000 SUSWR: .WORD AUSWR ::USER SWITCHES 
(3) 001554 000000 SCPUOP: .WORD ACPUOP ::CPU TYPE .OPT IONS 
(3) jt BITS IS-115CPU T 
(3) it 1/04=01, “11/05=02, 11/20=03,11/40=04,11/45=05 
(3) te W 70=06.PDQ=07,0 
(3) ie BIT 10=REAL TIME ee Ock 
(3) it BIT 9=FLOATING POINT PROCESSOR 
(3) = BIT 8=MEMORY MANAGEMENT 
(3) 001556 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
(3) 001557 000 SMTYP1: .BYTE AMTYP1 ::MEM. TYPE.BLKA#1 
(3) 3 MEM.TYPE BYTE == (HIGH BYTE) 
(3) ie 900 NSEC CORE=001 
(3) it 300 NSEC BIPOLAR=002 
(3) = 500 NSEC MOS= 
(3) 001560 000000 $MADR1: .WORD AMADR1 3HIGH ADDRESS .BLKA#1 
(3) t MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE’* ABOVE 
(3) 001562 000 $MAMS2: .BYTE AMAMS2 ;::HIGH ADDRESS M.S. BYTE 
(3) 001563 000 $MTYP2: .BYTE AMTYP2 i imEM. TYPE ,BLK#2 
(3) 001564 000000 SMADR2: .WORD AMADR2 ::MEM.LAST ADDRESS,BLK#2 
(3) 001566 000 SMAMS3: .BYTE AMAMS3 i HIGH ADDRESS -M.S.BY YTE 
(3) 001567 000 $MTYP3: .BYTE AMTYP3 ::MEM. TYPE ,BLK#3 
(3) 001570 000000 SMADR3: .WORD AMADR3 ::MEM.LAST ADDRESS. -BLKAS 
(3) 001572 000 $SMAMS4: .BYTE AMAMS4 ::HIGH ADDRESS,M.S.BYTE 
(3) 001573 000 SMTYP4: .BYTE AMTYP4 ::MEM.TYPE, 
(3) 001574 000000 SMADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS BLK&4 
(3) 001576 000000 $VECT1: .WORD AVECT1 ::INTERRUPT VECTOR#1,BUS PRIORITY#1 
(3) 001600 000000 SVECT2: .WORD AVECT2 ::INTERRUPT VECTOR#2BUS PRIORITY#2 
(3) 001602 000000 SBASE: .WORD ABASE 
(3) 7;BASE ADDRESS OF EQUIPMENT UNDER TEST 
(3) 001604 000000 SDEVM: :WORD ADEVM ;;DEVICE MAP 
(3) 001606 000000 $CDW1: <:WORD ACDW1 : CONTROLLER DESCRIPTION WORD#1 
(3) 001610 000000 $CDW2: . WORD ACDW2 ::CONTROLLER DESCRIPTION WORD#2 
(3) 001612 000000 $DDWO: .WORD ADDWO + IDEV VICE DESCRIPTOR WORD#O 
(3) 001614 000000 $DDW1: WORD ADDW1 ::DEVICE DESCRIP TOR WORDT 
(3) 001616 000000 SDDW2: .WORD ADDW2 ::DEVICE DESCRIPTOR WORD#2 
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CNDUVA.M11 

(3) 001620 
(3) 001622 
(3) 001624 
(3) 001626 
(3) 001630 
(3) 001632 
(3) 001634 
(3) 001636 
(3) 001640 
(3) 001642 
(3) 001644 
(3) 001646 
(3) 001650 
(3) 

(3) 

(3) 001652 
(3) 

(4) 

(4) 
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APT MAILBOX-E TABLE 


$DDW15: 


SETEND: 


ADDW15 


; DEVICE 


DESCRIPTOR WORD#15 
DESCRIPTOR WORD#14 
DESCRIPTOR WORD#15 


CNDUV=A_MACY11_30(1046) 

CNDUVA.M11 30-OCT-82 1 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 005746 
(4) 005726 
(4) 010046 
(4) 012600 
(4) 024646 
(4) 022626 
(4) 
(4) 
(4) 100000 
(4) 040000 
(4) 020000 
(4) 010000 
(4) 004000 
(4) 002000 
(4) 001000 
(4) 000400 
(4) 000200 
(4) 000100 
(4) 000040 
(4) 000020 
(4) 000010 
(4) 000004 
(4) 000002 
(4) 000001 
(4) 
(4) 100000 
(4) 040000 
(4) 020000 
(4) 01 
(4) 
(4) 001000 
(4) 00040: 
(4) 
(4) 300 
(4) 020000 
(4) 000000 
(4) 000000 
(4) 002000 
(4) 004000 
(4) 006000 
(4) 000000 
(4) 001000 
(4) 001400 
(4) 
(4) 100000 
(4) 040000 
(4) 020000 
(4) 002000 
(4) 000400 
(4) 000200 
(4) 000100 


14=DEC-82 
2:45 
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APT MAILBOX-ETABLE 


: INSTRUCTION DEFINITIONS 
9 ohh et log 


ti é 


sDECREMENT PROCESSOR STACK 1 WORD 


SEQ 0024 


=TST =(SP) 
=TST (SP)+ 


=(MP (SP)+,(SP)+ 


1SP=572 S INCREMENT PROCESSOR STACK 1 WORD 
PUSHRO=10046 § ;SAVE RO ON STACK =MOV RO,-(SP) 
POPRO=1260 “RESTORE RO FROM STACK =MOV (SP)+,RO 
PUSH2SP=24646  :DECREMENT STACK TWICE =CMP =(SP),-(SP) 
POP2SP=22626 §: INCREMENT STACK TWICE 
:REGISTER DEFINITIONS 

XCSR BIT DEFINITIONS 

psc=e1t1é DATA SET CHANGE 
RING=B1T14 tR 
CTS=B1T1 


?CLR TO SEND 
CARRIER DETECT 


:ST RIP SYNC 

sREC DONE 

;REC INTR ENABLE 
DSC a IR ates 


RTS=BIT2 REQ TO SEND 
DTR=BIT zDATA TERM RDY 
VOID=BITO 
sRXDBUF BIT DEFINITIONS 
RXERR=B1T15 zREC ERROR 
RRUN=B1T1 ; OVERRUN 
FRMERR=B1T13 hey | ERRO 
RER=BIT12 PARITY ERROR 
zPARCSR BIT DEF IHLTIONS 
PAREN=B119 PARITY ENABLE 
EVPAR=B1T8 ;EVEN PARITY SENSE 


SYNINT=30000 
SYNEXT=20000 


sTXCSR BIT DEFIN 


TXINTE=B11T6 


sPARCSR WRD DEFINITION $s 


YNC EXTERNAL MODE 
SYNC INTERNAL MODE 
MODE 


ry | 

;WORD LENGTH 5 BITS 
;WORD LENGTH 6 BITS 
;WORD LENGTH 7 BITS 
i Pa site 8 BITS 


it10 NS 
;DATA_NOT AVAILABLE 
INT DATA 


LK 
‘Bit WINDOW 
ZMASTER RESET 


DONE 
:XMIT INTR ENABLE 





M2 
LCNDUVSA MACYT1, 30(1046) | 14=DEC=82 10:03, PAGE 61-11 


CNDUVA.M11 30-OCT-82 12:45 APT MAILBOX-E TABLE 
(4) 000040 DNAINTE=BIT5 ;DNA_INTR ENAB 
(4) 000020 SEND=BIT : 

(4) 000010 SENENCBITS *HOX/FDX 

(4) 000001 BREAK=B1T0 BREAK 

(4) :TXCSR WRD DEFINITIONS 

(4) 000000 USER=0 US E 

(4) 004000 MINT=4000 ‘MAINT INT MODE 
(4) 010000 MEXT=10000 ‘MAINT EXT MODE 


(4) 014000 SYSTST=14000 ;SYSTEM TEST MODE 


a ee 


SEQ 0025 


c---—-—— — —— ee Se SS ae 
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CNDUV=A MACY11 30(1046) 14= 
CNDUVA.M11 30-OCT-82 12:4 ERROR POINTER TABLE SEQ 0026 
(2) .SBTTL ERROR POINTER TABLE 
(2) z*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
(2) [*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER F 
| «@) S*LOCATION $I7EMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE is PERTINENT. 
7 ae :*NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ER 
(2)  *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
ae * EM ::POINTS TO THE ERROR MESSAGE 
| 3* DH t:POINTS TO THE DATA HEADER 
a 3* DT ::POINTS TO THE DATA 
2) ie DF ::POINTS TO THE DATA FORMAT 
(2) 
| (2) 001652 SERRTB: 
; a yERROR TABLE 
/ (1) 001652 001762 EM1 ZERROR 1 REGISTER ERROR 
| 1) 001654 002067 DH1 
| (1) 001656 ~=002116 DT1 
(1) 001660 002132 DFI 
(1) 001662 002022 EM2 SERROR 2 RECEIVER ERROR 
(1) 001664 002067 DH1 
(1) 001666 002116 DT1 
(1) 001670 002132 DF1 
(1) 001672 002043 EM3 TERROR 3 TRANSMITTER ERROR 
(1) 001674 002067 DH1 
(1) 001676 002116 DT1 
(1) 001700 002132 DF1 
(1) 001702 001746 EMG SERROR 4 BIT ERROR (GENERAL) 
(1) 001704 000000 0 
(1) 001706 002126 DT4 
(1) 001710 002132 DF1 
(1) DEFAULT DU ADDRESSES 
(1) 001712 174300 RXCSR: 1 
(1) 001714 174301 HRXCSR: 174301 
(1) 001716 174302 RXDBUF: 174302 
(1) 1720 174303 HRXDBUF : 174303 
(1) 001722 174302 PARCSR: 174302 
(1) 001724 174303 HPARCSR: 174303 
(1) 001726 174304 TXCSR: 174304 
(1) 001730 174305 HTXCSR: 174305 
(1) 001732 174306 TXDBUF: 174306 
(1) 001734 174307 HTXDBUF : 1743 
(1) :DEFAULT DU VECTORS 
(1) 001736 000330 DURIV: 330 zREC INTR VECTOR 
(1) 001740 000332 DURIS: 332 :REC INTR STATUS 
(1) 001742 000334 DUTIV: 334 INTR VECTOR 
(1) 001744 000336 DUTIS: 33 AMAT INTR STATUS 
(1) ZERROR MESSAGES 
(1) 001746 020040 051105 047522 EM4: “ASCIZ / ERROR PC / 
(1) 001754 020122 041520 000040 
(1) 001762 020040 047503 050115 €EmM1 -ASCIZ / COMPARISON ERROR ON REGISTERS/ 
(1) 001770 051101 051511 047117 
(1) 001776 042440 051122 051117 
(1) 002004 047440 020116 042522 


a ee SE ee 





CNDUV=A MACY11 30(1046) 14=DEC-82 10:03 PAGE 61-13 
CNDUVA.M11 30-OCT-82 12:45 ERROR POINTER TABLE SEQ 0027 
(1) 002012 044507 052123 051105 
(1) 002020 000123 
(1) 002022 020040 042522 042503 EM2: eASCIZ / RECEIVER ERROR/ 
(1) 002030 053111 051105 042440 
(1) 002036 051122 051117 000 
(1) 00204 040 052040 040522 EM3: .ASCIZ / TRANSMITTER ERROR/ 
(1) 002050 051516 044515 052124 
(1) 002056 051105 042440 051122 
(1) 002 051117 000 
(1) ZDATA HEADERS FOR ERROR MESSAGES 
(1) 105 051122 041520 DH1: eASCIZ /ERRPC WANTED ACTUAL/ 
(1) 002074 020040 040527 052116 
(1) 002102 042105 020040 1 
(1) 002110 052524 046101 
(1) 002116 .EVEN 
(1) :DATA TABLES FOR ERROR MESSAGES 
(1) 002116 001416 001130 001132 DT1: “WORD  $ERRPC,HLDO,HLD1,0 
1) 002124 000000 
(1) 002126 001416 000000 DT4: «WORD S$ERRPC,0 
(1) 002132 000 000 000 oF1: -BYTE 0,0,0,0 
(1) 002135 000 
(1) .EVEN 
(2) .SBTTL ACT11 HOOKS 
(3) 33 RARER AAEAEAAKEREEEATAEAAAEEAAAAAEAEAEAAKREEAEEAERAEEEEEEREEEEEEE 
(2) sHOOKS REQUIRED BY ACT11 
(2) 002136 $SVPC=. rSAVE PC 
(2) 000046 ~=46 
(2) 000046 012674 SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
(2) 000052 000000 <WORD 0 z22)SET LOC. 32 TO ZERO 
(2) 002136 -=$SVPC : RESTORE P 
(2) .SBTTL APT PARAMETER BLOCK 
(3) SERA AAEREEEEREREEEEEEEEEEAEEEAEEERAEEEEREREREREREREREREREREEEE 
(2) iSer LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(3) FERRARA AREREEEEEAEEEEAEEEERAERAREREEREREEEEREREREREEEEEREEE 
(2) 002136 -$X=. SAVE CURRENT LOCATION 
(2) 000024 226 :SET POWER FAIL TO POINT TO START OF PROGRAM 
(2) 000024 000200 200 :2FOR APT START UP 
(2) 000044 6244 POINT TO APT INDIRECT ADDRESS PNTR. 
(2) 000044 002136 SAPTHDR : ‘POINT TO APT HEADER BLOCK 
(2) 002136 -=.$X  ::RESET LOCATION COUNTER 
(3) 3 2 SREAEAEAAAAAAEAAAAAAAAEAATEAAAEAAAAAAAAAEERAREARERAEREAREAEAEREREREREE 
(2) :SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
(2) ‘INTERFACE SPEC. 
(2) 002136 SAPTHD: 
(2) 002136 000000 SHIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR 
(2) 002140 001526 SMBADR: .WORD $MAIL ;:ADDRESS OF APT MAILBOX X (BITS 0-15) 
(2) 002142 000010 STSTM: WORD 10 ::RUN TIM OF LONGEST TEST 
(2) 002144 000010 SPASTM: .WORD 10 2: RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(2) 002146 00000 SUNITM: .WORD DIT ONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(2) 002150 00005 . WORD SETEND-SHAIL? Z;LENGTH MAILBOX-E TABLE (WORDS) 


F 
| 
| 
| 


CNDUV=A_MACY11 30(1046) 14=DEC-82 10:03 PAGE 61-14 


CNDUVA.M11 30-OCT-82 12:45 APT PARAMETER BLOCK SEQ 0028 
(1) 
(2) 
(2) PROGRAM INITIALIZATION 
(2) “LOCK OUT INTERRUPT 
(2) ‘ST UP PROCESSOR STA Ck 
(2) [SET UP POWER FAIL VECTOR 
(2) * CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
(3) [TYPE TITLE MESSAGE 
(2) 002152 START: 
(3) *SBTTL INITIALIZE THE COMMON TAGS 
(3) [CLEAR THE COMMON TAGS (SCMTAG) AREA 
(3) 002152 012706 001400 MoV #SCHTAG, RG :3FIRST LOCATION TO BE CLEARED 
(3) 002156 005026 CLR (R6)+ T:CLEAR MEMORY LOCATION 
(3) 002160 022706 001440 CMP WSWR,R6 ;;DONE? 
(3) 002164 001374 BNE 6 ::LOOP BACK IF NO 
(3) 002166 012706 001100 #ASTACK bke szSETUP THE STACK POINTER 
(3) ss INITIALIZE A FEW VECTORS 
(3) 002172 012737 016320 000020 #SSCOPE ,a#IOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
(3) 002200 012737 000300 000022 MOV #PR6,@#LOTVEC+2 LEV 
(3) 002206 012737 014210 000030 MOV #SERROR,a#EMTVEC :;EMT VECTOR FOR ERROR ROUTINE 
(3) 002214 012737 000300 000032 koe MOV #PR6,AMEMTVEC+2 s:LEVEL 6 
(3) 002222 012737 016654 000034 MOV #STRAP ,A#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
(3) 002230 012737 000300 000036 MOV #PR6,AATRAPVEC+2;LEVEL 6 
(3) 002236 012737 015012 000024 MOV #SPURDN, a#PWRVEC : POWER FAILURE VECTOR 
(3) 002244 012737 000300 000026 MOV #PR6,aFPWRVEC +2 ; ssl 
(3) 902252 905067 177234 CLR STIMES of Hi TA LIZE NUMBER OF ITERATIONS 
(3) 002256 5067 177232 CLR SESCAPE $ECLEAR tie ESCAPE ON ERROR ADDRESS 
(3) 002262 112767 000001 177125 MOVB =: #1, SERMAX ALLOW ONE ERROR PER TEST 
(3) 002270 012767 002270 177110 MOV #..SLPADR INITIALIZE THE LOOP ADDRESS FOR SCOPE 
(3) 002276 012767 092276 177104 MOV ‘. RR THE ERROR LOOP ADDRESS 
(4) SIZE FORA HARDWARE SWITCH REGISTER. 1 NOT FOUND OR IT 
(4) *"= a « 1 UP te ° SOFTWARE SWITCH wee 


S TEQUAL TO A 
MOV 


(4) 002304 013746 000004 EC,-(SP) ;;SAVE ERROR VECT 

(4) 602310 012737 002344 000004 MOV #64$, ReeehRvEC 33 SET UP ERROR VECTOR 

(4) 002316 012767 177570 177114 MOV #OSWR, SWR SSETUP FOR A HARDWARE SWICK REGISTER 
(4) 002324 012767 177570 177110 MOV #DDISP, DISPLAY [AND A HARDWARE DISPLAY REGISTER 

(4) 002332 022777 177777 177100 CMP #1, aSUR 2 TRY TO REFERENCE HARDWARE SwR 

(4) 002340 001012 BNE 66$ SBRANCH IF NO TIMEOUT. TRAP OCCURRED 
(4) 3 7 AND THE HARDWARE SWR IS NOT -1 
(4) 002342 000403 BR 65$ :BRANCH IF NO TIMEOU 

(4) 002344 012716 002352 64$: MOV #65$, (SP) <TSET UP FOR TRAP RETURN 

(4) 002350 000002 RTI 

(4) 002352 012767 000176 177060 65$: MOV #SWREG, SWR yiiPOINT TO SOFTWARE SWR 

(4) 002360 012767 000174 177054 MOV aI sPRER. DISPLA 

(4) 002366 012637 000004 66$: MOV (SP) +, a#ERRVEC ” RESTORE ERROR VECTOR 

(4) 002372 005067 177136 CLR SPASS ZCLEAR PASS COUNT 

(4) 002376 132767 000200 177143 BITB #APTSIZE,SENVM ITEST USER SIZE UNDER APT 

(4) 002404 001403 BEQ 67$ VES,USE NON-APT SWITCH 

(4) 002406 012767 001550 177024 * MOV #SSWREG, SWR TINO,USE APT SWITCH REGISTER 

(2) 002414 012706 001100 MOV #STACK,SP ZSET STACK 

(2) 002420 106427 000300 MTPS = #300 SLOCK INTERRUPTS 

(2) 0024624 012737 015012 000024 MOV #.PFAIL,a#246 :SET UP POWER FAIL VECTOR 
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176726 
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2$: 


33$: 
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NITIALIZE THE COMMON TAGS 


STFLG 


$ 
#1, STSTNM 
#.START,RETURN 


os dean} 


2 
#SWRE 


REG, SWR 
ile the 
+ 


(SP)+, (SP) 
SP)+,aa4 


(SP) +. a%6 
#SWREG, SWR 


JMRBY 
-BEGIN 
| aaeeaas 


+ 
zAPT CONTROL? 
BR IF NO 
: EXTENAL JUMPER ON? 

CLEAR FLAG 
TRESELECT VECTOR & CONTROL REG? 


CLEAR START F: AG 
CLEAR PASS COUNT 


: R_ COUNT 

CLEAR LAST ERROR POINTER 
3SET FOR T 

7SET_UP FOR POWER FAIL BEFORE 
s TESTING STARTS 


sCHECK FOR CHAIN 


HAS INITIALIZATION BEEN PERFORMED 


: TYPE TITLE MESSAGE 
F NOT SET FLAG AND DO 


-BEGIN 
#300,RO0 ;RESTORE VECTOR AREA TO TRAPCATCHER 
one R1 ;START AT LOCATION 300 


R2,RO 
R2_R1 
#1000,R1 


sEND AT LOCATION 776 


OUTPUT MESSAGE & GET INPUT STRING 


SMES 
sCONVERT STRING 
;LOW LIMIT 


sl 
sHIGH LIMI 


IMIT 
*STORE AT THIS LOCATION 
‘HOW MANY TIMES + 2 


BUBASE ,KEEPADD 
PC ,DUADDR 


SEQ 0029 


-—- —_------ ae 0 ee - —— —_—-— —- -- — 
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CNDUVA.M11 30-OCT-82 12:45 INITIALIZE THE COMMON TAGS SEQ 0030 
(1) 002734 016767 176216 176212 MOV KEEPADD, BASEADD ;RESTORE FOR ROTATION 
(2) 02742 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
/ (2) 002744 «01520 MVECTO cOrecn GE 
| (2) 002746»: 104410 PARAM ;:CONVERT STRING 
/ (2) 002750 +©000300 300 LOW LIMIT 
 (2)-—- 002752 «000776 776 HIGH LIMIT 
/ 2) +002754 001736 DURIV ;:STORE AT THIS LOCATION 
(2) 002756 001 .BYTE 1 SMASK 
| (2) 002757 004 “BYTE 4 eHOe. MANY TIMES + 2 
(1) 002760 016767 176752 176176 MOV DURIV,KEEPIV SAVE 
(1) 002766 016767 176744 176166 MOV DURIV,BASEIV —_:SET UP FOR ROTATION 
(2) 002774 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
| (2) 002776 015250 MMUL T 
(2) 003000 104414 SETFLG iSET dy: BASED UPON INPUT STRING 
(2) 003002 001152 MULTD :THIS FLAG 
(1) 003004 105767 176142 TSTB. MULTD ARE THERE MULTIPLE DEVICES 
(1) 003010 100406 BMI BBB SYES,ASK NEXT QUESTION 
(1) 003012 005067 176150 CLR ACTREG 
(1) 003016 005067 176146 CLR ROTADD 
(1) 003022 000167 000140 as JMP OUTMUL ;JUMP AROUND NEXT QUESTION 
(2) 003026 104406 INSTR OUTPUT MESSAGE & GET INPUT STRING 
(2) 003030 015277 MLASTD 
(2) 003032 104410 PARAM CONVERT STRING 
(2) 003034 174000 174000 LIMIT 
(2) 003036 177776 177776 THIGH LIMIT 
ts) 003040 001160 LASTADD eiSee AT THIS LOCATION 
(2) 00304¢ 001 .BYTE 1 
(2) 00304 001 -BYTE 1 sHOW MANY TIMES + 2 
(1) >THE FOLLOWING ROUTINE SETS UP ACTREG FOR THE FIRST TIME 
(1) 003044 012767 000001 176116 i$: MOV HF TADD POINTER 
(1) 003052 005067 176110 CLR ACTREG CLR active. REGIST ER 
(1) 003056 056767 176106 176102 2$: BIS ROTADD,ACTREG | ;MAKE THIS DEVICE ACTIVE 
(1) 003064 000241 CLC 
(1) 003066 006167 176076 ROL ROTADD ;SET UP POINTER 
(1) 003072 103421 BCS 3$ SARE YOU OUT OF RANGE 2 
(1) 003074 062767 000010 176052 ADD #10,BASEADD :SET UP BASE ADDRESS 
(1) 003102 026767 176052 176044 CMP LASTADD, BASEADD ‘IS THIS THE LAST DEVICE ? 
(1) 003110 101362 BHI 2$ :NO DO IT AGAI 
(1) 003112 056767 176052 176046 BIS ROTADD,ACTREG ;:THIS ASSUMES THAT THERE ARE AT 
(1) sLEAST TWO DEVICES WHEN YOU ANSWER YES TO 
(1) sMULTIPLE DEVICE QUESTION 
(1) 003120 012767 000001 176042 4$: MOV #1, ROTADD :SET UP FOR LATER USE IN END OF PASS ROUTINE 
(1) 003126 016767 176024 176020 MOV KEEPADD, BASE ADD :DITTO 
(1) 003134 000414 BR OUTMUL °;CONTI Rue’ QUESTIONS 
(1) 003136 016767 176014 176010 3$: MOV KEEPADD, BASE ADD RESTORE 
(2) 003144 104406 INSTR ; OUTPUT MESSAGE & GET INPUT STRING 
(2) 003146 015373 MRANGE 
(2) 003150 104410 PARAM t CONVERT STRING 
(2) 003152 174000 174000 ;LOW LIMIT 
(2) 003154 177776 177776 :HIGH LIMIT 
(2) 003156 001160 LASTADD :STORE AT THIS LOCATION 
(2) 003160 001 .BYTE 1 MASK 
(2) 003161 001 ‘BYTE 1 “HOW MANY TIMES + 2 
(1) 003162 000167 177656 JMP i$ :D0 IT AGAIN 


-- - — CS ES EE 
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CNDUVA. M11 30-OCT-82 12:45 INITIALIZE THE COMMON TAGS SEQ 0031 


(1) 003166 012767 00 0030 8 013616 OUTMUL: rH tag F -DUPRT 


(1) 003174 004767 01 C ,DULEV 
(2) SCOMPARE THE FIRST CHARACTER, IN THE TELETYPE INPUT 
i =) ‘BUFFER TO THE CHARACTERS ° a « 
| (2) SIF ThE CHARACTER IS ‘'1'° CL tar THE FLAG 
| @ SIF THE CHARACTER IS ‘'2"' SET THE FLAG 
' (2) 003200 AAA: 
| (2) 003200 104406 INSTR ;QUTPUT MESSAGE & GET INPUT STRING 
| (2) 003202 015611 MSYNC :MESSAGE ot 
(2) 0032046 122767 000061 012740 3: CMPB. so #1, INBUF 1S 17 "1" 2 
(2) 003212 001003 BNE 
| = (2) 003214 «105067 +«175726 CLRB SYNCNO ;000 
| (2) 003220 000412 BR 
| (2) 003222 122767 000062 012722 18: CMPB Os #''2, INBUF rIS IT "'2"° 2 
i (2) 003230 001004 BNE 
| 2) 003232 112767 177777 175706 MOVB  #=1,SYNCNO 3377 
| (2) 003240 000402 BR 
(2) 003242 104407 2$: INSTER ;RETRY 
(2) 003244 000757 BR $$ 
(2) 003246 000240 4$: NOP 
(2) 003250 104406 INSTR ;OQUTPUT MESSAGE & GET INPUT STRING 
(2) 003252 015657 MWIRE6 :MESSAG 
(2) 003254 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(2) 003256 001147 SEXMIT :THIS FL 
(2) 003260 104406 INSTR OUTPUT MESSAGE & GET INPUT STRING 
(2) 003262 015730 MWIRES :MESSA 
(2) 003264 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(2) 003266 001150 SEREC FLAG 
(2) 003270 104406 INSTR ‘OUTPUT MESSAGE & GET INPUT STRING 
(2) 003272 016000 MWIRE4 :MESSA 
(2) 003274 104414 SETFLG SET FLAG BASED UPON INPUT STRING 
(2) 003276 001151 OPTCLR LA 
(2) 003300 104406 INSTR ‘OUTPUT MESSAGE & GET INPUT STRING 
(2) 003302 016057 MEXTJ :MESSA 
(2) 003304 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(2) 003306 001153 JMRBY :THIS FLAG 
<° TEST START AND RESTART 
(2) 003310 012706 001100 .BEGIN: MOV #STACK,SP :SET UP STACK 
(2) 003314 106427 000300 MTPS #300 ‘LOCK OUT INTERRUPTS 
(2) 003320 032777 000002 176112 BIT #5W01,aSWR :I1F SWO1=1, GET STARTING PC 
(2) 003326 001413 BEQ 
(3) 003330 104406 INSTR OUTPUT MESSAGE & GET INPUT STRING 
(3) 003332 015543 MTSTPC 
(3) 003334 104410 PARAM CONVERT STRING 
(3) 003336 003374 TST] LOW LIMIT 
(3) 003340 017500 17500  :HIGH LIMIT 
(3) 003342 001402 $TSTNM ; STORE AT THIS LOCATION 
(3) 003344 001 BYTE 1 
(3) 003345 001 ‘BYTE 1 HOW MANY TIMES + 2 
(2) 003346 016767 176030 175530 MOV {How Ma RETURN 
(2) 003354 000403 R 
(2) 003356 012767 003374 175520 3$: MOV #TST1, RETURN :START AT TEST 1 
(2) 104401 015537 4s: TYPE Os, TYP 
(2) 003370 000177 175510 JMP RETURN ‘START TESTING 
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003374 000004 


003376 052777 
003404 012777 
003412 052777 


003420 012777 


003426 012777 
003434 052777 


003442 042777 


003550 052777 
003556 012767 
003564 012767 


oe bs = = Ss — 3s 2d Ss ss Ss SS Ss SS SS 2 IS tS SS SS Ss SS SS SS BRR POR RRO RRO 
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000400 
020000 
000400 


064001 
026026 


000020 
020000 


000300 
000100 
176174 


003714 
176206 
000000 
176150 


000100 
000010 
000025 


040000 
175672 


040000 
020000 
020000 
175264 


176300 
176266 
176250 
176256 


176246 


176200 
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10:03 PAGE 61- 


ss THIS TEST be at THAT RXDONE CAUSES AN INTERRUPT 
: SYNC EXTERNAL 
zz INTERRUPT vec rons DURIV 
LENGTH: EIGHT 


PPTTTITITITITITITITILITITILILTILI TLL LT LLL LLL LLL) 


aoe SCOPE 


BIS #MRESET,@TXCSR_  ;MASTER RESET 
MOV #SYNEXT,@PARCSR ;SET THE MODE 
BIS WMRESET,@TXCSR ;MASTER RESET 


SET MAINT DATA,CLK,BREAK ,@MAINTENANCE MODE 
MOV #MTDATA! CLK !MINT !BREAK,@TXCSR 


SET MODE ,# OF BITS,PARITY SENSE ,&LOAD Hee o 
MOV #SYNEXT !EIGHT !NOPAR! 26, aP 
BIS #SYNSCH,@RXCSR SET SEARCH SYNC 
:POKE sa GET ote a INTO SYNCRONIZATION 


K, :POKE cLK DOWN 
BIS #CLK ,aTXCSR :POKE CLK UP 
MOV #1$,aDURIV :SET uP TRAPCATCHER 
MOV DUPRT,aDURIS ; 
MTPS =-_«&#*O ZALLOW INTERR UPTS 
BR 2$ OUND INTERRUPT SVC ROUTINE 
-THE FOLLOWING IS THE inieRnyer SVC ROUTINE 
i$: MTPS #300 N'T ALLOW ANYMORE INTERRUPTS 
BIC #RINTEN, BRNCSR LELEAR INTERRUPT ENABLE 
TSTB  aRXCSR *RXDONE=1? 
BMI .+4 
ERROR 4 sFALSE INTERRUPT 
MOV #3$, (SP) :SET UP RETURN LOCATION 
MOV DURIS,@DURIV § :RESTORE TRAPCATCHER 
MOV #0, aDURIS : 
mov @RXDBUF ,R1 SCLEAR INTERRUPT 
2s: BIS WRINTEN,ARXCSR ;SET INTERRUPT ENABLE 
MOV #8, SHIFT :# OF SHIFTS 


MOV *TO BE SHIFTED CHARACTER 
;THE FOLLOWING pores” WHE ‘MAINT DATA BASED UPON THE 

S INFORMATION CONTAINED IN $TMP1 A ND IT IS 

*SHIFTED IN BY THE CONTENTS OF SHIFT 

5$: BIC #MTDATA, aTXCSR 


ROR STMP1 ;FORCE CARRY 


BCC 
BIS #MTDATA, aTXCSR 
4$: BIC #CLK,aTKCSR 
BIS #CLK aTXCSR 
DEC SHIFT 
BNE 
INTERRUPT T SHOULD NOW OCCUR 


SEQ 0032 


CNDUV=A_MACY11 ZO 1066) 


CNDUVA.M11 


co 
Nm 
—_ 
co 


74 
003750 
003756 


003764 
003772 


0000 
PARKIN A RRR RRA 


— Sh) et ot ey 
wwe nOwewuevuvuuvw 


30 


000004 
105767 
1 2 
052777 
012777 
012777 


052777 
042777 


N 
onnt 
NIN 


YN NW 


SV Nak 


14=DEC-82 
2 12:45 


176066 


0 
000100 


000300 


175225 
000402 


000400 
064001 


026026 
000020 


000000 


000300 
175644 


004332 
004136 


000002 
175620 


176062 
176056 


176006 


175652 
175620 
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INITIALIZE THE COMMON TAGS 


Inc RO, sWAIT FOR INTERRUPT 
MOV DURIS,@DURIV ; RESTORE TRAPCATCHER 

MOV #0,a0 UR IS $ 

MOV RXDBUF ,R3 [FOR ERROR MESSAGE 

MOV #25,R RO. SEXPECTED 

MOV aRXDBUF 

BIC ORINTEN ORXCSR :CLR INTR ENABLE 

CMP RO,R1 

BEQ +8 

ERROR 2 : i CHARACTERS SHOULD COMPARE 

ERROR 4 ; INTERRUPT FAILED TO OCCUR 


3$: MTPS #300 ° 


se THIS TEST VERIFYS THAT TWO INTERRUPTS THAT TRAP TO 
THE SAME VECTOR ARE BOTH EXECUTED 

:; INTERRUPT VECTOR: DURIV 

z3THIS TEST ONLY WORKS IN MAINT EXTERNAL MODE 


SRAAAAAAHEEAAAAERAAAAAEAERHEAKERAAAARAAAARARAAEARARERAAAAAAAAARAREEE 


$12: SCOPE 


TSTB = JMRBY N MAINT. EXTERNAL? 

BMI +6 1F ansuéh WAS YES DO THIS TEST 
is :1F ANSWER WAS NO yume AROUND TEST 

BIS WMRESET,@TXCSR ;MASTER RESET 

MOV WSYNEXT.@PARCSR :SET THE MODE 

BIS WMRESET.aTXCSR :MASTER RESET 


SET MAINT DATA, CLK BREAK, SMAINTENANCE MODE 
MOV #MTOATA!CLK! MINT !BREAK,aTXCSR 


sSET MODE ,# OF BITS. PARITY SENSE GLOAD SYNC REG 
MOV SYNEXT!EIGHT !NOPAR! 26, @PARCSR 
BIS aS YNSCN. @RXCSR ;SET SEARCH SYNC 
;POKE cLk To GET LOGIC INTO SYNCRONIZATION 


LK, aTXCSR sPOKE CLK DOWN 
BIS #CLK.aTXCSR :POKE CLK UP 
MOV #2$,aDURIV 3SET UP TRAPCATCHER 
MOV DUPRT, aDURIS 
MIPS) = #0 s ALLOW INTERRUPT 
BR 3$ : JUMP AROUND SVC ROUTINE 
- THE FOLLOWING IS THE 1Si INTERRUPT SVC ROUTINE 

2$: TPS #300 ;DON'T ALLOW ANY MORE INTERRUPTS 
TSB ARXCSR ME ADON —=1 
ERROR 4 FALSE INTERRUPT 
MOV aS. (SP) :SET UP RETURN LOCATION 
MOV #4$.aDURIV 3SET 1 UP TRAPCATCHER FOR SECOND 
BIS #DTR,ARKCSR TRY TO CAUSE SECOND INTERRUPT 


MOV @RXDBUF ,R1 ;JUST READ RXDBUF TO CLR RXDONE 


a — ee ee ee — - - 


SEQ 0033 
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CNDUVA.M11 30-OCT-82 12:45 INITIALIZE THE COMMON TAGS SEQ 0034 
8243 TO ALLOW SECOND INTERRUPT 
8244 76 106427 000000 MTPS #0 ; ALLOW INTERRUPT 
8245 102 005000 CLR RO 
8246 104 005200 INC RO WAIT FOR INTERRUPT 
8247 106 001376 BNE 4 
8248 110 042777 000140 175574 BIC #RINTEN!DSINTE ,@RXCSR egur INTR ENABLES 
BSe8 116 104004 ERROR 4 72ND INTERRUPT FAILED TO OCCUR 
8251 120 016777 175614 175610 6$: MOV DURIS,,aDURIV RESTORE TRAPCATCHER 
8252 126 012777 000000 175604 MOV #0,aDURIS : 

SS27 134 000002 RTI 

8255 ; THE ss: IS_THE 2ND Maret! SVC ROUTINE 

8256 136 106427 000300 4$: #300 :DON'T ALLOW “7 eh INTERRUPTS 
8257 142 005777 175544 TST @RXCSR :0SC = 1 ? 

8258 146 100401 BMI +4 

8259 150 104004 ERROR 4 sFALSE INTERRUPT 

82 152 042777 000140 175532 BIC WRINTEN!DSINTE,@RXCSR  ;CLR BOTH INTR ENABLES 
8261 160 012716 004120 MOV #6$, (SP) ;SET UP RETURN LOCATION 
gs0e 164 000002 RTI 

8264 166 052777 000140 175516 3$: BIS ge eet Oe or :SET_INTERRUPT ENABLES 
8265 174 012767 000010 174720 MOV #8. ,SHIFT # OF SHIFTS 

8266 202 012767 000025 175270 MOV #25, $TMP1 

ase ;THE FOLLOWING POKES THE MAINT oaTA ae UPON THE 


: INFORMATION CONTAINED IN $TMP1 
SHIFTED IN BY THE CONTENTS OF SH 


Se SSSSESESEEESE EEEREEEEE FEE EEREEES FEE geese 


8270 310 042777 040000 175510 &$: BIC #MTDATA, aTXCSR 
8271 16 000241 CLC 
8272 220 006067 175254 ROR STMP1 FORCE CARRY 
224 103003 BCC 
8274 226 052777 040000 175472 BIS #MTDATA, a@TXCSR 
8275 234 042777 020000 175464 7S: BIC #CLK ,aTXCSR 
8276 242 052777 020000 175456 BIS #CLK.aTXCSR 
8277 250 005367 174646 DEC SHIFT 
8278 254 001355 BNE BS 
8279 71ST INTERRUPT SHOULD NOW OCCUR 
8280 256 005 CLR RO 
8281 260 005200 INC RO :WAIT FOR INTERRUPT 
8282 262 001376 BNE -2 : 
8283 264 016777 175450 175444 MOV DURIS,@DURIV § : RESTORE TRAPCATCHER 
8284 272 012777 000000 175440 MOV #0,aDURIS ; 
8285 300 016703 W?oele MOV RXDBUF ,R3 SFOR ERROR MESSAGE 
8286 304 012700 00002 MOV #25. RO- SEXPECTED 
8287 310 017701 175402 MOV @RXOBUF RI 
8288 314 042777 000140 175370 BIC OR INTENIDSINTE ,@RXCSR :CLR INTERRUPT ENABLES 
8289 322 020001 CMP RO,R1 
8290 324 001401 BEQ +4 
8291 326 104002 ERROR 2 i CHARACTERS SHOULD COMPARE 
oes 330 104004 ERROR 4 s INTERRUPT FAILED TO OCCUR 
8294 332 106427 000300 5$: MIPS #300  ;DON'T ALLOW ANY MORE INTERRUPTS 
aSo2 336 1$: 
8297 sz THIS TEST VERIFYS THAT DNA CAUSES AN INTERRUPT 


8298 7;MODE: SYNC EXTERNAL 


t-- tee ee ——— + 
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(CNDUVA.MIT = 30=0CT=82 12:45 INITIALIZE THE COMMON TAGS SEQ 0035 
8299 : INTERRUPT VECTOR: DUTIV 
| 8301  REERARAAAAAAAAAAATEEEAEEREKETAAAARAAREAARAAEARERERARERERERARARERERE 
| (3) 004336 =©000004 i813: SCOPE 
| gsde 
| 8303 004340 052777 000400 175360 BIS #MRESET ATXCSR :MASTER RESET 
(1) 004346 012777 020000 175346 MOV WSYNEXT,@PARCSR :SET THE MODE 
(2) 004354 052777 000400 175344 BIS WMRESET.a@TXCSR :MASTER RESET 
(1) :SET MAINTENANCE MODE & SEND 
(1) OTE:BIT OI NDOWEEL K ARE ~~ (MTDATA=0) 
(1) 004362 012777 004020 175336 hov #MINT! SEND, aTXCSR 
(1) :SET MODE . “ OF BITS,PARITY SENSE,&@ LOAD SYNC REG 
(1) 004370 012777 026026 175324 #SY NEXT EIGHT !NOPAR 26. @PARCSR 
8304 004376 112777 000025 175326 MOVE #25 ,aTXDBUF ZLOAD CHARACTER 
8305 004404 012767 000010 174510 MOV #8. SHIFT 
8306 :POKE CLK TO GET INO. SYNCRONIZATION 
8307 004412 052777 175306 BIS #CLK,@TXCSR :POKE CLK UP 
aia 004420 042777 020000 175300 BIC #CLK.aTXCSR SPOKE CLK DOWN 
8309 004426 1$: 
(1) 004426 052777 020000 175272 BIS #CLK,aTXCSR zPOKE CLK UP 
(1) 004434 042777 020000 175264 BIC #CLK,aTXCSR SPOKE CLK DOWN 
8310 004442 005367 174454 DEC SHIFT ‘LAST SHIFT? 
8311 004446 001367 BNE 1$ 
B32 004450 012777 004516 175264 MOV #2$,aD ;SET UP TRAPCATCHER 
8313 004456 016777 012330 175260 MOV BUPA, aDUTTS 
8314 004464 106427 000000 MIPS #0 LLOW INTERUPTS 
8315 004470 052777 000040 175230 BIS #DNAINTE, sTkesR sENABLE INTERRUPT 
8316 :NOW POKE CLK TO GET 
8317 004476 052777 020000 175222 BIS #CLK,aTXCSR :POKE CLK 
8318 004504 005000 CLR RO 
8319 004506 005200 INC RO ZWAIT FOR INTERRUPT 
8320 004510 001376 BNE 72 
8321 004512 104004 ERROR 4 ZINTERRUPT FAILED TO OCCUR 
8322 004514 000422 BR 3$ ROUND SVC" our INE 
8323 : THE FOLLOWING 1S THE intgRRuPr SERVICE ROUTINE 
8324 004516 106427 000300 2$: #300 ;:DON'T ALLOW ANYMORE INTERRUPTS 
8325 004522 005777 175200 Wet? aTXCsR DNA? 
8326 004526 100401 ’ 
8327 004530 104004 ERROR 4 *FALSE INTERRUPT 
8328 004532 042777 175166 BIC #DNAINTE, @TXCSR CLR IN NTR ENABLE 
8329 004540 012716 004604 MOV 4$, (SP [SET UP RETURN LOCATION 
8330 004544 016777 175174 175170 MOV puTis, SDUTIV ‘RESTORE TRAPCATCHER 
8331 004552 012777 000000 175164 MOV #0,aDUTIS : 
8352 004560 000002 RTI 
8334 004562 016777 175156 175152 3$: MOV DUTIS, apuriv ZRESTORE TRAPCATCHER 
8355 004570 012777 000000 175146 MOV #0,aDdUTI : 
8337 004576 042777 000040 175122 BIC MDNAINTE ,a@TXCSR :CLR INTERRUPT ENABLE 
8358 004604 106427 000300 4$: MIPS =—s_- #300 OESTORE'NO BINT ERRUPT STATUS 
8340 


Bish CeeetilS sci a te once EE AN ie ODI SE 


Reena Pa Sa aee: «3 
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CNDUVA.M11 30-OCT-82 12:4 INITIALIZE THE COMMON TAGS SEQ 0036 





8341 ::THIS TEST VERIFYS THAT TXDONE CAUSES AN INTERRUPT 

8342 i INTERRUP T VECTOR: DUTI 

8343 TINOTE: TXDONE = 1_ AFTER A MASTER RESET 

8345 PIITIIITIITTIT ILI TIT TLI TTI Titi tLiti Lili tiit Titi Titi tiie tii 
(3) 004610 000004 TST4: SCOPE 

ese 

8347 004612 052777 000400 175106 BIS WMRESET,@TXCSR ;:MASTER RESET 

8348 004620 012777 004666 175114 MOV #1$,aDUTIV SSET UP TRAPCATCHER 

8349 004626 016777 012160 175110 MOV DUPRT, apuris : 

8350 004634 106427 000000 MTPS #0 ALLOW INTERPUTS 

8351 004640 052777 000100 175060 BIS #TXINTE,ATXCSR sENABLE INTERRUPT 

8352 004646 005000 CLR RO 

8353 004650 005200 INC RO :WAIT FOR INTERRUPT 

8354 004652 001376 BNE 2 

8355 004654 042777 000100 175044 BIC #TXINTE ,aTXCSR ZCLR INTERRUPT ENABLE 

8356 004662 104004 ERROR 4 : INTERRUPT FAILED TO OCCUR 

8357 004664 000422 BR 2$ y JUMP AROUND SVC" ROUTINE 

8359 > THE FOLLOWING IS THE INTERRUPT SERVICE ROUTINE 

8360 004 106427 000300 i$: TPS #300 DON'T ALLOW ANYMORE INTERRUPTS 

8361 004672 042777 000100 175026 BIC #TXINTE ATXCSR 3CLR INTR ENABLE 

8362 004700 105777 175022 TSTB aTXCSR + TXDONE ? 

8363 004704 100401 BMI +4 

004706 104004 ERROR 4 sFALSE INTERRUPT 

8365 004710 012716 004746 MOV #3$, (SP) UP RETURN LOCATION 
366 004714 o1g777 175024 175020 MOV DUTIS ,aDUTIV :RESTORE TRAPCATCHER 

8367 004722 012777 000000 175014 MOV #0,aDUTIS 

8368 004730 000002 RTI 

8370 004732 016777 175006 175002 2$: MOV DUTIS, apuriV ZRESTORE TRAPCATCHER 

8371 004740 012777 000000 174776 MOV 4#0,aDUTI : 

8373 004746 106427 000300 3$: MTPS #300  ;RESTORE NO INTERRUPT STATUS 

HE 

8377 3zTHIS TEST VERIFYS THAT TXDONE DOES NOT CAUSE AN INTERRUPT 

8378 i WHEN PROCESSOR PRIORITY LEVEL 1$ TOO HIGH 

8379 sINTERRUPT VECTOR: DUTIV 

8380 z:NOT E: TXDONE = 1 AFTER A MASTER RESET 

8382 Z PTITITITITIIILLLI LLL LILLE ELLE ELLE Eee 
(3) 004752 000004 TSTS: SCOPE 

8383 004754 052777 000400 174744 BIS WMRESET,@TXCSR ;:MASTER RESET 

8384 004762 012777 005046 174752 MOV #1$,aDUTIV ;SET UP TRAPCATCHER 

8385 004770 016777 012016 174746 MOV D PRT,aDUTIS 

8386 004776 106427 000300 MIPS #300 SET PS LEVEL TOO HIGH 

8387 005002 052777 000100 174716 BIS #TXINTE,@TXCSR ENABLE INTERRRUPT 

8388 005010 005000 CLR RO sWAIT FOR INTERRUPT 

8389 005012 005200 INC RO 3 

8390 005014 001376 BNE 72 

8391 005016 042777 000100 174702 BIC HTXINTE.ATXCSR CLR INTR ENABLE 

8392 005024 106427 000300 MIPS #300 — ;DON'T ALLOW INTERRUPTS 





Ne UR a eT ge TT 
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CNDUVA.M11. 30-OCT-82 12:45 INITIALIZE THE COMMON TAGS SEQ 0037 
8393 005030 016777 174710 174704 MOV DUTIS a0 aduTV ;RESTORE TRAPCATCHER 
8394 005036 012777 000000 174700 MOV 
8395 005044 000421 BR EST IS OK....GET OUT OF TEST 
8396 : THE FOLLOWING 1S THE nied SVC ROUTINE 
8397 005046 106427 000300 i$: MTP #300 DONT gtLow ANYMORE INTERRUPTS 
8398 005052 042777 000100 174646 Bie #TXINTE ATX 3CLR INTR EN 
8599 005060 012716 005102 MOV #3$, (SPS SET UP RETURN LOCATION 
2401 005064 016777 174654 174650 MOV DUTIS,aDUTIV  :RESTORE TRAPCATCHER 
8402 005072 012777 000000 174644 MOV #0,aDUTIS : 
8403 005100 000002 RTI 
04 ZEND OF INTERRUPT SVC ROUTINE 
06 
08 zYOU SHOULD NOT GET INTO THIS FOLLOWING CODE UNLESS THERE 
09 “WAS AN ERROR 
005102 106427 000300 3$: MTPS #300 :DON" T ALLOW ANYMORE INTERRUPTS 
005106 104004 ERROR 4 ERRUPT SHOULD NOT OF OCCURED, CHECK 
3 THE INTERRUPT LEVEL SELECTED OR CHECK 
SINTERRUPT LOGIC OR BOTH 
005110 2$: 


2 THIS TEST VERIFYS THAT a a ONLY ONF INTERRUPT 


3 TX IS NO ITTEN) 
:ETHIS TEST CHECKS THE oa ONLY FLIP/FLOP (v2) 
a fae HE INTERRUPT coreg LOGIC 
al a VECTOR: DUT IV. 
z:NOT E: TXDONE = 1 AFTER A MASTER RESET 


SReeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeneeeeeeeeeeeer 
1816: 


RRLKREKRARRRAKLKAEK._ LARELLAAERRRR RRR REELS 
WONAUY ~ SW 6 OONOUSWN—O 


005110 000004 SCOPE 
005112 052777 000400 174606 BIS WMRESET,@TXCSR ;MASTER RESET 
005120 012777 005160 174614 MOV #1$,aDUTIV 3SET UP TRAPCATCHER 
005126 016777 011660 174610 MOV DUPRT,aDUTIS 
005134 106427 000000 MIPS = #0. sALLOW INTERRUPTS 
005140 052777 000100 174560 BIS #TXINTE ATKCSR sENABLE INTR ENABLE 
005146 005000 CLR RO 
1 005150 005200 INC RO 
2 005152 001376 BNE 72 
3 005154 104004 ERROR 4 ZINTERRUPT FAILED TO OCCUR 
005156 000425 
>THE FOLLOWING IS THE INTR SVC ROUTINE 
005160 106427 000300 i$: MTPS #300  ;DON'T ALLOW ANYMORE INT 
005164 012716 005224 MOV #3$,(SP)° 7SET UP RETURN LOCATION 
005170 012777 005200 174544 MOV #2$. aburIy ‘SET UP TRAPCATCHER TO 
9 PROVE THAT THE INTERRUPT ets NOT OCCUR 
0 STWICE (AFTER RTI "ING FROM THIS 
1 :SVC ROUTINE 
8442 005176 000002 RTI 
8443 : THE FOLLOWING INTERRUPT SVC , ROUTINE WILL CATCH THE SECOND INTR 
8444 005200 106427 900309 2$: MTPS #500 _;DON'T ALLOW INTER 
8445 005204 012716 0052 ; MOV SP) 7SET UP RETURN LOCATION 
8446 005210 105777 17451 TSTB aTxesR :TXDONE = 1? 





m 3 
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CNDUVA.M11 30-OCT-82 12:45 INITIALIZE THE COMMON TAGS SEQ 0038 
8447 005214 100401 BMI +4 
8448 005216 104004 ERROR & sTXDONE SHOULD BE SET 
8449 005220 104004 ERROR 4 ; THE INTERRUPT WAS TAKEN TWICE......--- 
8450 sCHECK OUT THE V2 FLIP/FLOP LOGIC 
8451 SIN THE INTERRUPT CONTROL Logie 
8452 005222 000002 RTI 
8453 005224 005000 3$: CLR RO ;ALLOW TIME TO CATCH SECOND 
8454 005226 905200 INC RO s1F IT WERE TO OCCUR 
8455 005230 001376 BNE -2 
8456 005232 016777 174506 174502 4$: MOV buts. apiriv ;RESTORE TRAPCATCHER 
8457 005240 012777 000000 174476 MOV TIS ; 
8458 005246 042777 000100 174452 BIC aTXANTE. ATXCSR :CLR INTERRUPT ENABLE 
8459 005254 106427 000300 MTPS #300 ;RESTORE NO INTERRUPT STATUS 
8461 
8462 ::THIS TEST VERIFYS THAT TWO INTERRUPTS THAT TRAP 
8463 [TO THE SAME VECTOR ARE BOTH EXECUTED 
8464 SZINTERRUPT VECTOR: DUTIV 
8465 ::MODE: SYNC EXTERNAL 
8467 REAAEAEAEAAEEAEAEAEETEEEEEEEAEEEAAAAEAEEKEHEEREEAEEEARAAEKEEEEEEEEEE 
(3) 005260 000004 $17: SCOPE 
gues 
8469 005262 052777 000400 174436 BIS #MRESET,@TXCSR ;MASTER RESET 
(1) 005270 012777 020000 174424 MOV #SYNEXT.@PARCSR :SET THE MODE 
(2) 005276 052777 000400 174422 BIS WMRESET.aTXCSR :MASTER RESET 
(1) ;SET MAINTENANCE MODE & SEND 
(1) NOTE :BIT OT IDGWEELK ARE CLEARED (MTDATA=0) 
(1) 005304 012777 004020 174414 ov #MINT! SEND, @TXCSR 
(1) ;SET MODE.# OF BITS,PARITY SENSE,& LOAD SYNC REG 
(1) 005312 012777 026026 174402 MOV WSYNEX EIGHT !NOPAR 26. @PARCSR 
8470 005320 112777 000025 174404 MOVB #25,aTXDBUF ;LOAD CHARACTER 
8471 005326 012767 000010 173566 MOV "SHIFT 
8472 :POKE CLK TO GET INTO SYNCRONIZATION 
8473 005334 052777 020000 174364 BIS #CLK,aTXCSR sPOKE CLK UP 
af 005342 042777 020000 174356 BIC #CLK aTXCSR SPOKE CLK DOWN 
8475 005350 1$: 
(1) 005350 052777 020000 174350 BIS #CLK,a@TXCSR :POKE CLK UP 
(1) 005356 042777 020000 174342 BIC #CLK.ATXCSR SPOKE CLK DOWN 
8476 005 005367 173532 DE SHIFT SLAST SHIFT? 
8477 005370 00136 BNE 1$ 
8478 005372 012777 005432 174342 MOV #2$,aDUTIV ;SET UP TRAPCATCHER 
8479 005400 016777 011406 174336 MOV BUPA @DUTTS 
8480 005406 106427 000000 MIPS = #0 INTERRUPTS 
8481 005412 052777 000140 174306 BIS PTXINTE!ONATNTE. @TXCSR ;ENABLE INTERRUPTS 
8482 005420 005000 CLR RO 
8483 005422 005200 INC RO :WAIT FOR INTERRUPT 
8484 005424 001376 BNE 72 ; 
8485 005426 104004 ERROR 4% s INTERRUPT FAILED TO OCCUR 
8486 005430 000461 BR 3$ : JUMP AROUND SVC° ROUTINES 
8488 ;THE FOLLOWING IS THE 1ST INTERRUPT SVC ROUTINE 
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005624 
005630 


BES5R 2 


- —©O OO 


012777 
000002 
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000300 
174264 


174254 
005616 
005544 

020000 
000025 
000000 
000140 


174212 
000000 


000300 
174152 


000140 
005526 


174144 
000000 
000140 
000300 


000262 
000400 


174252 


174230 
174226 


174202 


174206 
174202 


174140 


174140 
174134 


174110 


174070 


INITIALIZE THE COMMON TAGS 


23: MTPS #300 DON'T ALLOW ANYMORE INTERRUPTS 
ist orate [DNA=0 ? 
ERROR 4 DNA SHOULD NOT BE ASSERTED 
TSTB aTxcsRr : TXDONE = 1? 
BMI +4 
ERROR 4 sFALSE INTERRUPT 
MOV #4$, (SP) 3SET UP RETURN LOCATION 
MOV #5$,aDUTIV 3SET UP TRAPCATCHER 
. ING UP DNA 


g K 
MOVB #25, aTXDBUF ;JUST LOAD ANY CHAR TO CLR 
;TXDONE TO ALLOW SECOND INTERRUPT 


MIPS #9 TALLOW INTERRUPTS 
Inc RO, zWAIT FOR INTERRUPT 
BIC WONAINTE!TXINTE,@TXCSR ;CLR INTR ENABLES 
ERROR 4 [2ND INTERRUPT FAILED TO OCCUR 
6$: MOV DUTIS,@DUTIV ;RESTORE TRAPCATCHER 
MOV #0,aDUTIS : 
RTI 
>THE FOLLOWING IS THE 2ND INTERRUPT SVC ROUTINE 
S$: MTPS #300 
TST aTXCsR DNA 
BMI +4 
ERROR 4 ZFALSE INTERRUPT 
BIC MDNAINTE!TXINTE,@TXCSR :CLR BOTH INTR ENABLES 
MOV #6$, (SP) :SETUP RETURN LOCATION 
3$: MOV DUTIS,@DUTIV ;RESTORE TRAPCATCHER 
MOV #0,aDUTIS 
BIC #DNAINTE ! TXINTE ,@TXCSR :CLR BOTH INTERRUPT 
4$: MTPS #300  ;RESTORE NO INTERRUPT STATUS 


z2THIS TEST VERIFYS CTP MODE (IE SYSTST MODE) 
gett BASICALLY CHECKS THE EXISTANCE OF 
iin HE ws yNEXT OSCILLATOR 


EIGHT 
SI THIS Test USES BOTH THE RECEIVER & TRANSMITTER LOGIC 


SERRE EERE EEE EEE EREREREEEEEREEEEEEEEEEEE 


18110: SCOPE 


FERRARA EREKEREEEEEEEEE 


NOP THIS TEST 


MARS ASLALAALILESELA LS SS 


. BIS #MRESET,@TXCSR MASTER RESET 


SEQ 0039 


| CNDUV=A_MACY11_30(1046) 
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14=DEC-82 10:03 PAGE 61-26 
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020000 
000400 
026026 


5 
014020 
000120 


173552 


173540 
000003 


173620 
000200 


177577 


174056 
174054 
174042 


174044 
174042 
174036 


174002 
173760 


173532 


173730 
173724 


173664 


173654 


173666 
173662 


8 4 


#SYNEXT,@PARCSR ;LOAD THE MODE 

#MRESET aT XCSR :MASTER RESET 

WSYNEXT! EIGHT :NOPAR! 26,8 @PARCSR ;LOAD THE MODE, 
F BITS PER CHAR,PARITY SENSE(NO PARITY), 

jgstuc’ i CHARACTER (26) 


DBU ZLOAD THE CHA 
#2$,aDURIV 3SET UP FRAPCATCHER 
DUPRT, a@DURIS 
“ALLOW INTERRUPTS 
RXDBUF ,R3 :SET UP FOR ERROR MESSAGE 


#25,R0_ XPEC 
#SYSTST! SEND, @TXCSR poke NOW LOAD SEND & 


IN D 
#SYNSCH!RINTEN, akXcsR sSET SEARCH sre sr 
sRECEIVER INTERR 
ENABLE & WAIT FOR "INTERRUPT 


STMPS 

Ro WAIT FOR INTERRUPT 

3, 3THPS 

i : INTERRUPT DID NOT OCCUR 


;THE FOLLOWING IS_THE INTERRUPT SVC_ ROUTINE 
$: MTPS #300 


:PREVENT INTERRUPTS 
CSR RG :$ 


@RXDBUF ,R1 sACTU 

DURIS, aOURIV :RESTORE TRAPCATCHER 
#0 ,aDURIS 

#53, (SP) SET UP_RETURN 
#RINTEN,@RXCSR CLR INTERRUPT ENABLE 


#RINTEN,@RXCSR scuR i al ENABLE 
#300 ;PREVENT INTERRU 
DURIS @DURIV :RESTORE PTRAPCATCHER 


RO, RI 
3 ZCHARACTERS DID NOT MATCH 
RXCSR,R3 *SETUP FOR ERROR MESSAGE 
#200,R0 : PECT ED 

RGR SACTUA 

#177577,R1 SAVE byt Y RXDONE 

RO,R1 

.+ 

i FALSE INTERRUPT 


$: 
37 THIS TEST VERIFYS CTP MODE (IE SYSTST MODE) 
3217 BASICALLY CHECKS THE EXISTANCE OF 


ee ee ee ee +e 


a -—-- —— 
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8599 3 THE FREE RUNNING OSCILLATOR 
| 8600 ‘MODE: SYNINT 
8601 LENGTH: ort GH 
860 :eTHIS TEST Gers BOTH THE RECEIVER & TRANSMITTER LOGIC 
| 8604 TTT TTT TITTLE TT TT TTT TTT TTT TTT TTT TTT TTT TT TTT TTT TTT TT TTT TTT 
| ) 006112 000004 uses SCOPE 
, B605 006114 052777 000400 173604 BIS WMRESET,@TXCSR MASTER RESET 
/ (1) 006122 012777 030000 173572 MOV #SYNINT,@PARCSR :SET THE MODE 
(2) 006130 052777 000400 173570 BIS WMRESET.a@TXCSR :MASTER RESET 
| :SET MAINTENANCE MODE & $ 
| @ TE:BIT OTHOOUEEL K ARE CLEARED (MTDATA=0) 
eh 006136 012777 014020 173562 ov #SYSTST! SEND, aTXCSR 
| (1) :SET MODE,# OF BITS, PARITY SENSE ,& € LOAD. sy SYNC REG 
(1) 006144 012777 036026 173550 MOV #SYNINT EIGHT! 
8606 006152 052777 20 173532 BIS FSYNSCHISTESYH ORACSA Sey SEARCH SYNC & 
8607 STRIP SYNC SO THAT RXDONE ASSERTS 
8608 3WHEN CHAR "25" ARRIVES AND NOT BEFORE... 
8609 t +. THEREFORE,SET STRIP SYNC 
8610 dececeeecece WAIT FOR SYNSCH TO BE 
8611 SCLOCKED IN BY SYSTST CLK 
8612 006160 005067 173324 CLR STMP 
8613 006164 909008 CLR R2 
Bels 006170 09187 so 
8616 need 805 09 173312 INC $TMPS 
8617 006176 022767 000003 173304 CMP #3,$TMPS 
8618 006204 002367 BGE =-20 GO BACK TO CLR R2 AND WAIT SOME MORE 
8619 006206 012777 22 173522 MOV #28 apuriv ;SET UP TRAPCATCHER 
8620 006214 o1g777 10572 173536 MOV DUPRT oD RIS; 
8621 006222 012777 006514 173512 MOV 73S abut iV ; 
B622 006230 016777 010556 173506 MOV DUPRT, aDUTIS 
8623 006236 106427 000000 MTPS - ALLOW INTERRUPTS 
8624 006242 016703 173450 MOV RXDBUF RS up FOR ERROR MSG 
8625 006246 012700 000025 MOV #25,R0- TEXPECTED CH CHA 
8626 006252 012767 000002 172644 MOV ; »COUNT. :# OF R Sync CHARS TO GET INTO 
8627 - SYNCRONIZATION 
8628 006260 165767 172662 TST8  SYNCNO ;TEST TO SEE HOW MANY SYNC CHARS NEEDED 
8629 006264 100402 BMI 9$ 
8630 006266 005367 172632 DEC COUNT  ;MAKE IT ONE LESS 
8631 006272 052777 000100 173412 9$: BIS MRINTEN,@RXCSR ;SET INTERRUPT ENABLES 
8652 006300 058777 000100 173420 BIS #TXINTE, aTXCSR 
8633 006306 167 000012 JMP 8s HE FIRST XMIT INTERRUPT SHOULD COME 
8634 FROM 1xbONE © AFTER A MASTER RESET 
8635 906312 112777 000026 173412 1$: MOVB #26 TXDBUF tab SYNC CHAR 
8636 00632 005067 173164 CLR TMP 
8637 006324 005002 8$: CLR iB ;WAIT FOR INTERRUPT 
8638 006526 005202 INC 
8639 006330 001 76 BNE : 
8640 006332 00526 173158 INC $Thps 
8641 006336 022767 000003 173144 CMP #3, STMPS 
Bode 006344 002367 BGE 
864 006346 106427 000300 MTPS #300 sPREVENT INTERRUPTS 
| 
| 


i a — —_—— eee - 


-—--—_ ---- -— -_--- ee —— - - — 
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BIC  - #TXINTE,@TXCSR CLR INTR ENABLES 
BIC - #RINTEN @RXCSR ; 

| MOV —DURIS-abURIV — :RESTORE TRAPCATCHER 
| 8648 mov © DUTIS,adUTIV 
| 8649 006410 012777 000000 0,adUTIS 


MOV : 
8650 006416 104004 ERROR 4 ; TXDONE INTERRUPT FAILED TO OCCUR 
8651 006420 000540 BR 7$ :GET OUT OF THE TEST 
8653 - THE FOLLOWING IS THE RECEIVER INTERRUPT SVC ROUTINE 
8654 006422 106427 000300 d$: #300 PREVENT INTERRUPTS 
8655 006426 017704 173260 mov anacsn ni 
8656 006432 017701 173260 MOV a@RXDBUF TACT UAL 
8657 36 016777 173276 173272 MOV DURIS. abuiv SRESTORE TRAPCATCHER 
8658 006444 012777 000000 173266 MOV DURIS : 
8659 006452 016777 173266 173262 MOV butts. apuTIV. 
8660 006460 012777 000000 173256 MOV #0,aDUTIS 
1 006466 019716 006646 MOV #4$, (SP) :SET UP RETURN LOCATION 
8662 006472 042777 000100 173212 BIC #RINTEN, @RXCSR 3CLR INTERRUPT ENABLES 
8663 006500 042777 000100 173220 BIC ATXINTE -ATXCSR 
8664 006506 016705 172412 MOV COUNT ,R5 ?SAVE COUNT 
8665 006512 000002 RTI 
8666 sEND OF RECEIVER INTERRUPT SVC ROUTINE 
8667 * ..eTHE FOLLOWING I$ THE XMITTER INTERRUPT SVC ROUTINE 
8668 006514 005367 172404 3$: DEC COUNT 
8669 006520 100403 I 5$ 
8670 006522 012716 006312 MOV #1$, (SP) ;SET UP RETURN LOCATION 
8671 :(LOAD SYNC CHARACTER AGAIN) 
8672 006526 000002 RTI 
8673 006530 012716 006536 5$: MOV #6$, (SP) :SET UP RETURN LOCATION 
8674 006534 000002 RTI 
8675 ZEND OF XMITTER INTERRUPT SVC ROUTINE 
8676 006536 112777 000025 173166 6$: MOVB #25, aT ADBUF ;LOAD CHARACTER 
8677 006544 042777 000100 173154 BIC #TXINTE,@TXCSR :CLR INTR ENABLE 
8678 006552 005067 172732 CLR $TMP 
8679 006556 005002 10$: CLR R2 ;WALT FOR INTERRUPT (RECEIVER) 
8680 006560 005202 INC R2 
8681 006562 001376 BNE 2 : 
8682 006564 005267 172720 INC $TMPS 
8683 006570 022767 000003 172712 CMP #3, STMPS 
8684 006576 002367 BGE 
8685 006600 106427 000300 MIPS #300  ;PREVENT INTERRUPTS 
8686 006604 042777 000100 173100 BIC WRINTEN,@RXCSR CLR INTR ENABLE 
8687 006612 016777 173122 173116 MOV URIS. @OURIV :RESTORE TRAPCATCHER 
006620 012777 000000 173112 MOV adURIS : 
8689 006626 016777 173112 173106 MOV butte: apuTIV. 
8690 006634 012777 00 173102 MOV ,aou 
8691 006642 104004 ERROR 4 RECEIVER INTR FAILED TO OCCUR 
8692 006644 000426 BR 7$ :GET OUT OF TEST 
8693 006646 020001 4$: CMP RO,.R1 
8694 006650 001401 BEQ .+ 
8695 006652 104008 ERROR 2 s CHARACTERS DID NOT MATCH 
96 006654 016703 173032 MOV XCSR,R3- : SE FOR ERROR MSG 
8697 006660 012700 000200 MOV #205 RO EXPECTED RXDONE 
98 006664 010401 MOV 4,R1 |: ACTUAL 
8699 006666 042701 177577 BIC #195577.K1 ySAVE ONLY RXDONE 
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CNDUVA.M11 «=: 30-OCT-82 12:45 INITIALIZE THE COMMON TAGS SEQ 0043 
' 8700 006672 020001 cmp RO,R1 
| 8701 006674 001401 BEQ v4 
8702 006676 104001 ERROR ZFALSE INTERRUPT 
8703 006700 020527 177777 CMP RS. #-1 :WAS COUNT =-1 WHEN RECEIVER 
| 8704 s INTERRUPTED ? 
| 8705 006704 001401 BEQ +4 
| 8706 006706 104004 ERROR 4 RS IS GREATER THAN -1........ 
| g707 THEN ertder THE # OF SYNC STRAP IS WRONG 
8708 [OR RXDONE IS OCCURING TOO SOON 
| 8709 006710 026727 172210 177777 cmp —s« COUNT, #1 
8710 006716 001401 BEQ +4 
/ 8711 006720 104004 ERROR 4 :1f THIS TEST FAILS,BUT THE ABOVE TEST 
| g712 ;DOESN'T.....11T MAY BE THAT CLEARING 
| 8713 STXINTE IN THE RECEIVER SVC ROUT I NE 
| 8714 ‘1S NOT STOPPING TXDONE INTERRUPTS 
| 8715 006722 106427 000300 7$: MIPS) #300 INHIBIT INTERRUPTS 
8717 
8718 z:THIS TEST VERIFYS MATCH DETECT & DATA RDY 
(1) TIFLAGS FOR EVERY POSSIBLE MATCH CHARACTER 
(1) ::BY OBSERVING RECACT BIT 
(1) 3317 WILL TAKE TWO. SYNC * CHARACTERS TO GET RECACT BIT 
(1) DEPENDENT ON MONITOR .......cseee 
(1) ttle ONE SYNC ST RADY IS SELECTED ,IT WILL 
(1) £5 0NL Y TAKE ONE SYNC CHARACTER BEFORE RECACT TO 
(1) MODE : ySYnc INTERNAL 
(1) S:LENGTH: FIVE 
(1) tISYNC CHARACTER FOR MATCH: B/C 
(1) z3THIS TEST USES THE TRANSMITTER AND RECEIVER CHIPS 
(5) s CRRRReReReReeReeeeeeeeteeeeeeeeeeeneeeeeteteneeeaeeeeeeeeeerere 
(4) 006726 000004 T8112: SCOPE 
(2) 006730 052777 000400 172770 BIS WMRESET,@TXCSR MASTER RESET 
(1) 006736 016703 172754 MOV RXDBUF ,R3 :SET UP FOR ERROR MESSAGE 
(1) zSET SYNC INTERNAL, FIVE, NO PARITY,0 SYNC REGIST 
(1) 006742 012704 030000 MOV #SYNINT (FIVE !NOPAR,RG CREATE PAR ARAME TERS 
(1) 006746 012777 004020 172752 6$: MOV #MINT!SEND,@TXCSR ‘SET SEND & MAINT INTER 
(1) 006754 010477 172742 MOV R4,aPARCSR sLOAD CSR 
(1) 006760 052777 000020 172724 BIS #SYNSCH,@RXCSR :SET SYNC SEARCH 
(1) :POKE CLK TO GET INTO SYNCRONIZATION 
(1) :BOTH THE LOGIC & RECEIVER 
(2) 006766 052777 020000 172732 BIS #CLK,aTXCSR ZPOKE CLK UP 
(2) 006774 042777 020000 172724 BIC #cLk aTXCSR :POK E CLK Own 
(1) 007002 110477 172724 MOVB _R4, aTXDBUF DATA CHARACTER 
(1) sPOKE CLK TO GET TRANSAITTER & RECEIVER INTO SYNCRONIZATION 
(2) 007006 052777 020000 172712 BIS CLK,aT xCSR CLK UP 
(2) 007014 042777 020000 172704 BIC #CLK.aTXCSR PORE cL DOWN 
(1) 007022 032777 004000 172662 BIT WRECACT,@RXCSR :RECACT 
(1) 007030 001401 BEQ +6 
(1) 007032 104004 ERROR 4 ;RECACT SHOULD NOT BE SET 
(1) 007034 000404 BR 4$ 
(1) 007036 010477 172660 5$: MOV R4,@PARCSR ZLOAD PARCSR WITH PARAMETERS 
(1) 007042 110477 172664 MOVB  R4.aTXDBUF ‘LOAD SYNC CHA 
(1) 007046 012767 000002 172050 4$: MOV #2. COUNT :# OF SYNC CHARS 


LT ae eR teste eee es ee 
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-.-1T PROBABLY -. A erg ry Mp ig = 
sHOWEVER,...IF ONLY THIS FAILED IT 
;PROBABLY IS A RECEIVER ERROR 


SCOP1 
sPOKE CLK TO SEE DNA...DNA COMES UP ON THE FIRST 
BIT OF THE NEXT CHARACTER IF NO CHARACTER IS LOADED INTO 


007162 104405 


(1) 007054 005777 172646 2s: TST @TXCSR ;DNA ? 
1) 007060 100001 BPL +4 ‘BR IF NOT SET 
1) 007062 104004 ERROR 4 ‘DNA SHOULD NOT BE SET OR. 
1 z1T sHouLD BE CLEARED FROM PREVIOUS READ 
1 907064 012767 000005 172030 - MOV #5, SHIFT 34 OF SHIFTS 
2) 007072 052777 020000 172626 BIS #CLK,aTXCSR yPOKE CLK UP 
2) 007100 042777 020000 172620 BIC #CLK,aTXCSR sPOKE CLK DOWN 
1) 007106 005367 172010 DEC SHIFT  ;# OF SHIFTS 
1) 007112 001367 BNE 
1) 007114 005367 172004 DEC OUNT ;# OF SYNC CHARS 
1) 007120 001403 BEQ 
1 :TEST SYNCNO TO SEE HOW MANY SYNC CHARACTERS NEEDED 
1) 007122 105767 172020 TSTB SYNCNO 
1) 007126 100752 BMI 2$ wO SYNC CHARACTERS. . 
1) 007130 032777 004000 172554 3$: BIT ARE CACT ,aRXCSR :RECACT 
1) 007136 001001 BNE .+ 
1) 007140 104004 ERROR i” *RECACT FAILED TO SET, POSSIBLE 
1 THAT THE RECEIVER FAILED TO MATCH 
1 THE SYNC CHARACTER 
1) 007142 017701 172550 MOV ARXDBUF RI ZSAVE ACTUAL 
1) 007146 010400 MOV R4,R SSAVE EXPECTED 
1) 007150 042700 177400 BIC #177400,R0 :CLR UPPER BYTE 
1) 007154 020001 CMP RO,R1  :DO THEY COMPARE ? 
1) 007156 001401 BEOQ .+ 
i 007160 104002 ERROR 2 r1F RECACT FAILED ALONG WITH THIS 
1 
1 
1 
1 
i 
3 U 
1) 007164 052777 020000 172534 BIS #CLK -ATKCSR :POKE CLK UP 
1) 007172 005777 172530 TST aTxXCSR ;DNA? 
1) 007176 100401 BMI 3+ 
1) 007200 104004 ERROR ZDNA DID NOT ASSERT 
1 :SET UP CONDI T10ie FOR NEXT SYNC CHARACTER MATCH 
2) 007202 052777 000400 172516 BIS #MRESET, a@TXCSR ER RESET 
007210 032777 000020 172474 BIT #SYNSCH.@RXCSR SYNC SEARCH = 0 ? 
007216 001401 BEQ +4 
007220 104004 ERROR 4 :SYNC SEARCH SHOULD BE NOT SET 
007222 005204 INC R 
007224 122704 000040 CMPB = #40,R4 ;1S THIS THE LAST CHARACTER ? 
007230 001246 BNE 6$ “NO 


3sTHIS TEST V 
2sFLAGS FOR EV 
228Y OBSERVIN CACT BIT 

eet WILL TAKE TWO N'RONITOR 22-2 - TO a RECACT BIT 


®: PENDENT ON 
iF ONE SYNC STRAP IS SELECT WILi 

LER TARE ONE SYNC SHARAE TER before RECACT TO 
LENGTH: SIX 


ER 
VE 

G 

E 


IFYS MATCH DETECT & DATA RDY 
a ross ime MATCH CHARACTER 
T 


Se ee ee ae ee he ee i Lee he he Lae ht ee ae ep ea heat he a het ee a et ee em ee he, et ea a ct ca a ea, ea, hat he ta ea a, ht ce ka a ae a a ae a a ae 
ee Ne ee ee ee ee ee eee ee ee a 


td a os ss —) —s Ss 9 - 9 ts =) 
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(1) z:SYNC CHARACTER FOR MATCH: B/C 
(1) 33THIS TEST USES THE TRANSMITTER AND RECEIVER CHIPS 
(5) TTT TTTITT TITLE TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
(4) 007232 000004 +8113: SCOPE 

(2) 007234 052777 000400 172464 BIS WMRESET,a@TXCSR ;MASTER RESET 

(1) 007242 016703 172450 MOV RXDBUF ,R3 ZSET UP FOR ERROR MESSAGE 
(1) sSET SYNC INTERNAL “SIX NO PARITY 0 SYNC REGISTER 

(1) 007246 012704 032000 MOV NINT!SIX!NOPAR,R4 : CREATE PARAMETERS 
(1) 007252 012777 004020 172446 6$: MOV MINT! SEND -@TXCSR “SET SEND & MAINT INTER 
(1) 007260 010477 172436 MOV R4, PARCSR LOAD CSR 

(1) 007264 052777 000020 172420 BIS WSYNSCH,@RXCSR :SET SYNC SEARCH 

(1) :POKE CLK TO GET INTO. SYNCRONIZATION 

(1) :BOTH THE LOGIC & RECEIVER 

(2) 007272 052777 020000 172426 BIS SCLE STNESR zPOKE CLK UP 

(2) 007300 042777 020000 172420 BIC #CLK-@TXCSR :POKE ck K DOWN 

(1) 007306 110477 172420 MOVE _R4, aTXDBUF ATA CHARACTER 

(1) ZPOKE CLK TO GET TRANSMITTER & RECEIVER INTO SYNCRONIZATION 
(2) 007312 052777 020000 172406 BIS #CLK,aTXCSR OKE CLK UP 

(2) 007320 042777 020000 172400 BIC #CLK.aTXCSR pone cLk DOWN 

(1) 007326 032777 004000 172356 BIT WRECACT,@RXCSR :RECACT ? 

(1) 007334 001401 BEQ +4 

(1) 007336 104004 ERROR % ZRECACT SHOULD NOT BE SET 

(1) 007340 000404 BR 4$ 

€1) 007342 010477 172354 5$: MOV R4,@PARCSR ZLOAD PARCSR WITH PARAMETERS 
(1) 007346 110477 172360 MOVB  R4.aTXDBUF ‘LOAD SYNC CHA 

(1) 007352 012767 000002 171544 4$: MOV #2, COUNT :# OF SYNC CHARS 

(1) 007360 005777 17234 23: TST aTxCSR ;DNA ? 

(1) 007364 100001 BPL +4 BR IF NOT SET 

(1) 007366 104004 ERROR 4% ‘DNA SHOULD NOT BE SET OR.... 

(1) :1T SHOULD BE CLEARED FROM PREVIOUS READ 

(1) 007370 012767 000006 171524 a MOV #6, SHIFT 3# OF SHIFTS 

(2) 007376 052777 020000 172322 BIS #CLK,aTXCSR ZPOKE CLK UP 

(2) (07404 042777 020000 172314 BIC #CLK.aTXCSR iPOKE CLK DOWN 

(1) 007412 005367 171504 DEC SHIFT ;# OF SHIFT 

(1) 007416 001367 BNE 1 

(1) 007420 005367 171500 DEC COUNT ;@ OF SYNC CHARS 

(1) 007424 001403 BEO $ 

(1) :TEST SYNCNO TO SEE HOW MANY SYNC CHARACTERS NEEDED 

(1) 007426 105767 171514 TSTB = SYNC 

(1) 007432 10075 BMI 2$ TWO SYNC CHARACTERS. . 

(1) 007434 032777 004000 172250 38: BIT MRECACT ARKCSR SRECACT 

(1) 007442 001001 BNE + 

(1) 007444 104004 ERROR es >RECACT FAILED TO SET, POSSIBLE 
(1) THAT THE RECEIVER FAILED TO MATCH 
(1) E SYNC CHARACTER 

(1) 007446 017701 172244 MOV @RXDBUF , ai” ZSAVE ACTUA 

(1) 007452 010400 MOV SAVE EXPECTED 

(1) 007454 042700 177400 BIC #177400,R0 [CLR UPPER BYTE 

(1) 007460 020001 CMP RO.R1 :D0 THEY COMPARE ? 

(1) 007462 001401 BEQ .+ 

(1) 007464 104002 ERROR 2 rIF RECACT FAILED ALONG WITH THIS 
(1) bo001T PROBABLY IS A TRANSMITTER ERROR 
(1) SHOWEVER,...1F ONLY THIS FAILED IT 
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;PROBABLY IS A RECEIVER ERROR 


~~ 
— 
—~ 


(1) 007466 104405 SCOP1 
(1) : POKE CLk TO SEE DNA...DNA COMES UP ON THE FIRST 
3) BIT oF THE NEXT CHARACTER IF NO CHARACTER IS LOADED INTO 
(1) 007470 052777 020000 172230 BIS #CLK,aTXCSR :POKE CLK UP 
(1) 007476 005777 172224 TST @TxXCSR ;DNA? 
(1) 007502 100401 BMI +4 
(1) 007504 104004 ERROR & sDNA DID NOT ASSERT 
(1) -SET UP CONDITIONS FOR NEXT SYNC CHARACTER MATCH 
(2) 007506 052777 000400 172212 BIS WMRESET,aTXCSR ;MASTER RESET 
(1) 007514 032777 000020 172170 BIT WSYNSCH.@RXCSR :SYNC SEARCH = 0 ? 
(1) 007522 001401 BEQ +6 
(1) 007524 104004 ERROR 4 sSYNC SEARCH SHOULD BE NOT SET 
(1) 007526 005204 INC R 
(1) 007530 1227046 000100 CMPB = #100,R4 :1S THIS THE LAST CHARACTER ? 
(1) 007534 001246 BNE rs 3 NO 
8720 z:THIS TEST VERIFYS MATCH DETECT & DATA RDY 
(1) SIFLAGS FOR EVERY POSSIBLE MATCH CHARACTER 
(1) ::BY OBSERVING RECACT BIT 
a) ZIT WILL TAKE TWO SYNC * CHARACTERS To GET RECACT BIT 
(1) tit: | DEPENDENT ON MONITOR . vie 
(1) T:IF ONE SYNC STRAP IS SELECTED wii 
(1) 3 5ONL LY TAKE ONE SYNC CHARACTER eétore RECACT TO 
(1) +: MODE : syne INTERNAL 
(1) S:LENGTH: SEVEN 
(1) ISYNC CHARACTER FOR MATCH: B/C 
(1) 33THIS TEST USES THE TRANSMITTER AND RECEIVER CHIPS 
(5) ¢ : Peeeeeeeeeeeeaaeeeeeeeredeeeeeeeaarearenteananenerereeereeeeeeee 
(4) 007536 000004 TST14: SCOPE 
(2) 007540 052777 000400 172160 BIS WMRESET,@TXCSR MASTER RES ET 
(1) 007546 016703 172144 MOV RXDBUF “SET UP FOR ERROR MESSAGE 
(1) ZSET SYNC INTERNAL “SEVEN NO PARITY,O SYNC REGISTER 
(1) 007552 012704 034000 MOV NT!SEVEN'NOPAR,R4 ;CREATE PARAMETERS 
(1) 007556 012777 004020 172142 6$: MOV SAINT SEND. aTKCSR “SET SEND & MAINT INTER 
(1) 007564 010477 172132 MOV R4,aPARCSR OAD CS 
(1) 007570 052777 000020 172114 BIS #SYNSCH, aRXCSR Aa SYNC SEARCH 
(1) zPOKE CLK TO GET INTO SYNCRONIZATION 
(1) [BOTH THE LOGIC & RECEIVER 
(2) 007576 052777 020000 172122 BIS #CLK,aTXCSR :POKE CLK up 
(2) 007606 042777 020090 172114 BIC acLK aT XCSR :POKE CLK DOWN 
(1) 007612 110477 172174 MOVB DBUF DATA CHARACTER 
(1) zPOKE CLK TO GET ROR ANSRTTTER & rEtrIVER INTO SYNCRONIZATION 
(2) 007616 052777 020000 172102 BIS #CLK,aTXCSR SPOKE CLK UP 
(2) 007624 042777 020000 172074 BIC #CLK aTXCSR POKE cL DOWN 
(1) 007632 032777 004000 172052 BIT WRECACT,@RXCSR :RECACT 
(1) 007640 001401 BEQ + 
(1) 007642 104004 ERROR 4% :RECACT SHOULD NOT BE SET 
(1) 007644 000404 BR 4$ 
(1) 007646 010477 172050 5$: MOV R4,@PARCSR ZLOAD PARCSR WITH PARAMETERS 
(1) 007652 110477 172054 MOVB = R4. aTXDBUF [LOAD SYNC CHA 
(1) 007656 012767 000002 171240 4$: MOV #2. COUNT :# OF SYNC CHARS 
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(1) 007664 «005777: 172036 2$: TST aTXCSR sDNA ? 
007670 100001 BPL [BR IF NOT SET 
007672 104004 ERROR *DNA SHOULD NOT BE SET OR. 
iat st SHOULD BE CLEARED FROM PREVIOUS READ 
007674 012767 000007 171220 - MOV # OF SHIFTS 
007702 052777 020000 172016 RIS #CLK,aTXCSR zPOKE CLK UP 
007710 042777 020000 172010 BIC #CLK aTXCSR “POKE CLK DOWN 
007716 005367 171200 DEC SHIFT ;# OF SHIFTS 
007722 001367 BNE 
007724 005367 171174 DEC COUNT ;:# OF SYNC CHARS 
007730 001403 BEQ $ 
sTEST SYNCNO TO SEE HOW MANY SYNC CHARACTERS NEEDED 
007732 105767 171210 TSTB  SYNCNO 
007736 100752 BMI 2$ WO SYNC CHARACTERS. . 
007740 032777 004000 171744 38: BIT #RECACT, bRcsR ;RECACT 
007746 001001 BNE +6 
007750 104004 ERROR 4% sRECACT FAILED TO SET, POSSIBLE 
THAT THE RECEIVER FAILED TO MATCH 

HE SYNC CHARACTER 
007752 017701 171740 MOV @RXDBUF , AY sSAVE ACT 
007756 010400 MOV R4,R SSAVE EXPECTED 
007760 042700 177400 BIC #177400,RO :CLR UPPER BYTE 
007764 020001 CMP RO,R1  ;:DO THEY COMPARE ? 
007766 001401 BEQ +4 
007770 104002 ERROR 2 r1F RECACT FAILED ALONG WITH THIS 


baat P ROBABLY IS A_TRANSMITTER ERROR 
OWEVER,...1F ONLY THIS FAILED IT 
‘PROBABLY IS A RECEIVER ERROR 


SCOP1 
sPOKE CLK TO SEE DNA...DNA COMES UP ON THE FIRST 
:B1T ! THE NEXT CHARACTER IF NO CHARACTER IS LOADED INTO 


007774 052777 020000 171724 BIS #CLK,a@TXCSR :POKE CLK UP 
010002 005777 171720 TST aTxcSR ;DNA? 
010006 100401 BMI +4 
010010 104004 ERROR % A DID NOT ASSERT 

3SET UP CONDITIONS FOR NEXT SYNC CHARACTER MATCH 
010012 052777 000400 171706 BIS WMRESET,@TXCSR MASTER RESET 
010020 032777 000020 171664 BIT WSYNSCH.@RXCSR :SYNC SEARCH = 0 ? 
010036 td PaROR é . SYNC SEARCH SHOULD BE NOT SET 
010032 005204 INC 
010034 122704 000200 CMPB =s-s« #200, R4 = 1S THIS THE LAST CHARACTER ? 
030040 001246 BNE 6$ = NO 


zTHIS TEST VERIFYS MATCH DETECT & DATA RDY 

SIFLAGS FOR EVERY POSSIBLE MATCH CHARACTER 

:3BY OBSERVING RECACT BIT 

2317 WILL TAKE TWO SYNC CHARACTERS 10 Ger RECACT BIT 
DEPENDENT ON MONIT 

itr ONE SYNC STRAP IS SELECTE witli 

:0NLY TAKE ONE SYNC CHARACTER Delia RECACT TO 


33ASS 
3sMODE: SYNC INTERNAL 
7sLENGTH: EIGHT 


R 
E 


RRR RANA RARER AAA RAR AAA AAA AAA E EE PPP PPR OPP PO 
kk IN) a dk mh, ak a kk i kk kd ed dt od ot ot I 
ee 


fo - 


~-- ---—- + + SC ee —— 
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3sSYNC CHARACTER FOR MATCH: B/C 
se THIS TEST USES THE TRANSMITTER AND RECEIVER CHIPS 


WTTTITITITITITITILILI LITT T LiL i LiL ii Titi iill 


010042 000004 +$115: SCOPE 
010044 052777 000400 171654 BIS #MRESET ,@TXCSR {MASTER RESET 
010052 016703 171640 MOV RXDBUF ,R3 “SET UP FOR ERROR MESSAGE 
7SET SYNC INTERNAL EIGHT NO PARITY 3° SYNC REGISTER 
010056 012704 036000 T!EIGHT!NOPAR,R4 ;CREATE PARAMETERS 
01 012777 004020 171636 6$: mov aINT SEND, aTKCSR *SET SEND & MAINT INTER 
010070 010477 171626 MOV R4,@PARCSR R 


sLOAD CS 
010074 052777 000020 171610 BIS WSYNSCH,@RXCSR :SET SYNC SEARCH 
;POKE CLK TO GET INTO SYNCRONIZATION 
‘BOTH THE LOGIC & & RECEIVER 


BE 
TEST SYNCNO TO SEE HOW MANY SYNC CHARACTERS NEEDED 
0236 105767 170704 TSTB SYNCNO 
0242 100752 BMI 2s TWO SYNC _—~- 
0244 032777 004000 171440 3$: BIT — /ARXCSR zRECACT 


010102 052777 020000 171616 #CLK,a@TXCSR yPOKE CLK UP 
010110 042777 020000 171610 BIC #CLK-ATXCSR :POKE CLK DOWN 
010116 110477 171610 MOVE _R4, aTXDBUF DA ATA CHARACTER 
:POKE CLK TO GET TRANSMITTER g RECEIVER INTO SYNCRONIZATION 

010122 052777 0200C0 171576 BIS #CLK,aTXCSR CLK UP 
010130 042777 020000 171570 BIC #CLK,aTXCSR <BOKE CLK DOWN 
010136 032777 004000 171546 BIT WRECACT,@RXCSR :RECACT ? 
010144 001401 +4 
010146 104004 ERROR 4% :RECACT SHOULD NOT BE SET 
010150 000404 4$ 
010152 010477 171544 5$: MOV R4,@PARCSR ZLOAD PARCSR WITH PARAMETERS 
010156 110477 171550 MOVB  R4.aTXDBUF [LOAD SYNC CHA 
010168 oie? 7 99000¢ 170734 4$: MOV #2, COUNT :# OF SYNC CHARS 
010170 005777 1715 2s: TST aTxCSR ;DNA ? 
010174 100001 BPL +4 [BR IF NOT SET 
010176 104004 ERROR 4 [DNA SHOULD NOT BE SET OR.. 

17 sHoulD BE CLEARED FROM PREVIOUS READ 
910200 012767 000010 170714 mn MOV #8. .SH 3# OF SHIFTS 
010206 052777 020000 171512 BIS #CLK,aTXCSR yPOKE CLK UP 
010214 042777 020000 171504 BIC acl aTxcsR sPOKE CLK DOWN 
010222 005367 170674 DEC HIFf  ;# OF SHIFTS 
010226 001367 BNE 
010230 005367 170670 DEC COUNT ;# OF SYNC CHARS 
010234 00140 0 
01 
01 
01 
010252 001001 BNE 
010254 104004 ERROR 4% -RECACT FAILED TO SET, gPOssIBLE 

;THAT THE RECEIVER FAILED TO MATCH 
THE SYNC CHARACTER 

010256 017701 171434 MOV @RXDBUF , i TSAVE ACTUAL 
010262 010400 MOV R sSAVE EXPECTED 
010264 042700 177400 BIC ath 7400,R0 CLR UPPER BYTE 
010270 020001 CMP RO.R1  :DO THEY COMPARE ? 
010272 001401 BEO + 
010274 104002 ERROR 2 :1F RECACT FAILED ALONG WITH THIS 


ae | PR —" IS A_TRANSMITTER ERROR 
sHOWEVER,...1F ONLY THIS FAILED IT 


ee eS ee ST SS LL ee eh 


ELL LL LL BLE BB BBP PPP RP PPA LPL ee Fe im, Pm fn, Pm 
ee er ee et es es ee ee ee ee er er ee ee ee er ee ee ee ee er er ee a a ae a ee ee ee ae ae ee a a eS we ee 


i a a ee ee ae —_—- —-~ 
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s;PROBABLY IS A RECEIVER ERROR 


SCOP1 
oa CLK TO SEE DNA...DNA COMES UP ON THE FIRST 
SBIT OF THE NEXT CHARACTER IF NO CHARACTER IS LOADED INTO 


~~ 
— 


010276 104405 


XDBUF 

010300 052777 020000 171420 BIS #CLK ,aTXCSR sPOKE CLK UP 
010306 005777 171414 TST @TXCSR ;DNA? 
010312 100401 BMI -*4 
010314 104004 ERROR 4 ;0NA DID NOT ASSERT 

;SET UP CONDITIONS FOR NEXT SYNC CHARACTER MATCH 
010316 052777 000400 171402 BIS WPRESET,@TXCSR ;MASTER RESET 
010324 032777 000020 171360 BIT WSYNSCH,@RXCSR ;SYNC SEARCH = 0 ? 
010332 001401 BEQ +4 
010334 104004 ERROR 4 SYNC SEARCH SHOULD BE NOT SET 
010336 005204 INC R4 
010340 122704 000000 CMPB #0O,R4 ;1S THIS THE LAST CHARACTER ? 
010344 001246 BNE 6$ :NO 

8 3;THIS TEST PERFORMS A BINARY COUNT DATA PATTERN ON 
+ BOTH THE gee la AND oo LOGIC 
sMODE:SYNC EXTERNAL (SYNEXT 

LENGTH: 1 i _ PARITY 

7 zPARITY:EVEPA 

2 éMAINT. MODE SINT 

te TTTITITITITILITILITLLILILI LLL LLL LLL LLL LLL ELL ELL LLL 

010346 000004 TST16: SCOPE 


0 052777 000400 171350 BIS WMRESET,@TXCSR ;MASTER RESET 
010356 012777 020000 171336 MOV #SYNEXT,@PARCSR ;SET THE MODE 
010364 052777 000400 171334 BIS WMRESET,@TXCSR ;MASTER RESET 


3SET MAINTENANCE MODE & S 
NOTE :BIT GINDOWEELK ARE CLEARED (MTDATA=0) 


ee a a a a hh at tt te et te tet 
—> 
Ww 
oO 


pt ton to ton to to ion ie ten Len Le iene ie inte leteletetleleateatatiole ial Leelee eee 
ek wed I) et td = AI) ed et = = = AMUN NINN RINNE BD a a 8 DN) 9 8 Ot ot 9 2 0 9 OO Ot os Ss 


010372 012777 004020 171326 ov #MINT! SEND a@TXCSR 

:SET MODE,# OF BITS,PARITY SENSE,& LOAD SYNC REG 
010400 012777 027426 171314 MOV WSYNEXT !EIGHT!EVEPAR! 26, a@PARCSR 
010406 016703 171304 MOV RXDBUF ,R3 sSETUP FOR ERROR MSG 
010412 005004 CLR R4 FOR DATA CHAR CREATION 
010414 110477 171312 MOVB R4, aTXDBUF OAD CHARACTER 
010420 052777 000020 171264 BIS #SYNSCH. ARXCSR ‘SET SEARCH SYNC 

:GET INTO SYNCRONIZATION 
010426 052777 020000 171272 BIS #CLK,aTXCSR :POKE CLK UP 
010434 042777 020000 171264 BIC #CLK.aTXCSR sPOKE CLK DOWN 
010442 012767 000011 170452 1$: MOV #9. SHIFT “# OF SHIFTS 
910450 010400 . MOV R4.RO EXPECTED 
010452 052777 020000 171246 BIS #CLK,@TXCSR :POKE CLK UP 
010460 042777 020000 171240 BIC ack aTXCSR *POKE CLK DOWN 
010466 005367 170430 DEC SHIFT ;# OF SHIFTS 
010472 022767 000003 170422 CMP #3,SHIFT sTIME TO LOAD NEXT CHAR ? 
010500 001003 BNE 3$ :NO ? 
010502 005204 INC R4 [GENERATE NEXT CHAR 
010504 110477 171222 MOVB = R4, aT xDBUF SLOAD NEXT CHARACTER 
010510 005767 170406 3$: TST SHIFT ;1S 11 0°? 


ecto OC— Ct eee ae ee ae eee ee 
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| ¢€1) 010514 001356 BNE 2s 
| 010516 105777 171170 TSTB —@RXCSR ;RXDONE = 
010522 100491 I 
010524 104004 ERROR § sRXDONE SHOULD BE SET 
010526 017701 171164 MOV —- @RXDBUF , R1 TUAL 
010532 020001 CMP RO,R1 ‘;COMPARE EXP VS ACT 
010534 001401 BEQ Ry) 
| 010536 104002 ERROR 2 :CHARACTERS SHOULD COMPARE 
010540 105704 TSTB ss RG [LAST CHARACTER 
010542 001337 BNE 1$ NO 
010544 4$: 

8 ::THIS TEST PERFORMS A BINARY COUNT DATA PATTERN ON 
°:BOTH THE TRANSMI TTER AND RECEIVER LOGIC 
t:MODE:SYNC EXTERNAL (SYNEXT 
t:LENGTH:EIGHT PLUS PARITY 
; 3PARITY:ODDPAR 

33MAINT. MODE :MINT 
PITIIITISIIIITI ITIL TILT TTL Litt itil t itil ti tiiiti tii iitit iit! 
010544 000004 $117: SCOPE 


010546 052777 000400 171152 BIS MMRESET,@TXCSR ;MASTER RESET 
010554 012777 020000 171140 MOV #SYNEXT,@PARCSR ;SET THE MODE 
010562 052777 000400 171136 BIS #MRESET,@TXCSR ;MASTER RESET 


3SET MAINTENANCE MODE & S 
NOTE :BIT VINDOWEELK ARE CLEARED (MTDATA=0) 


ee ed ed ed ed ed ed ed A) ed od = FU) td td = = = APN NU NUP WIE BS U1 ot ot ot ot 0 0) I tt ot tt 
ee eS YY UY Yee 


SE eee 
F > Neap Team Team Tan Lamm team am Tae ham Tee Team Team ca ht ca am an an a cae a a an a ea a a en ce ae ee a ee ie aa ae ee ee Leelee ele 


010570 012777 004020 171130 ov #MINT! SEND, aTXCSR 

:SET MODE,# OF BITS. PARITY SENSE,& LOAD SYNC REG 
010576 012777 027026 171116 MOV YNEXT :EIGHT !ODDPAR 26, @PARCSR 
010604 016703 171106 MOV RADBUF R3 sSETUP FOR ERROR MSG 
010610 005004 CLR R4 3FOR DATA CHAR CREA TION 
010612 110477 171114 MOVB R4, aTXDBUF ;LOAD CHARACTER 
010616 052777 000020 171066 BIS #SYNSCH,@RXCSR SET SEARCH SYNC 

:GET INTO SYNCRONIZATION 
010624 052777 020000 171074 BIS #CLK,aTXCSR :POKE CLK UP 
010632 042777 020000 171066 BIC #CLK,aTXCSR ‘POKE CLK DOWN 
010640 012767 000011 170254 1S$: MOV #9. SHIFT “# OF SHIFTS 
910646 010400 ss MOV R4,RO EXPECTED 
010650 052777 020000 171050 BIS #CLK,aTXCSR :POKE CLK UP 
010656 042777 020000 171042 BIC #CLK,aTXCSR *POKE CLK DOWN 
010664 005367 170232 DEC SHI 3# OF SHI 
010670 022767 000003 170224 CMP 43,SHIFT sTIME TO LOAD NEXT CHAR ? 
010676 001003 BNE 3$ ? 
010700 005204 INC RG + GENERATE NEXT CHA 
010702 110477 171024 MOVB = R4,aTXDBUF :LOAD NEXT R PMARACTER 
010706 005767 170210 3$: TST SHIFT ;1S IT 0? 
010712 00135 BNE 
010714 105777 170772 TSTB ARXCSR ZRXDONE = 
010720 100401 
010722 104004 ERROR i” sRXDONE SHOULD BE SET 
010724 017701 170766 MOV  — @RXDBUF ,R1 TU 
010730 620001 CMP RO.R1 ‘;COMPARE EXP VS ACT 
010732 001401 BEQ w+ 


- 


ee eee Ce ee ee Ce + -- — 
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| (1) 010734 104002 ERROR 2 CHARACTERS SHOULD COMPARE 
/ = €1)-—- 010736 «= 105704 TSTB RG ‘LAST CHARACTER 
/ 1) 010740 001337 BNE 1$ ‘NO 
' €1) 010742 4$: 
8724 r:THIS TEST PERFORMS A BINARY COUNT DATA PATTERN ON 
(1) ¢:BOTH THE TRANSMITTER AND RECEIVER LOGIC 
(1) ::MODE:SYNC EXTERNAL (SYNEXT 
(1) S:LENGTH:EIGHT PLUS PARITY 
(1) +: PARITY: EVEPAR 
Hy 2 MAINT. MODE :MEXT 
(5) 2  RRREREREERERERERREREEREREREREEREREREREEEEEREREREREEREREEREREREE 
(4) 010742 000004 TST20: SCOPE 
(1) 010744 105767 170203 TSTB = JMRBY ==; JUMP_AROUND TEST ? 
(1) 010750 100116 BPL 4s YES ? 
(3) 010752 052777 000400 170746 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) 010760 012777 020000 170734 MOV #SYNEXT@PARCSR sSET THE MODE 
(3) 010766 052777 000400 170732 BIS WMRESET.aTXCSR :MASTER RESET 
(2) ;SET MAINTENANCE MODE & SEND 
(2) NOTE:BIT WINDOWSCLK ARE CLEARED (MTDATA=0) 
(2) 010774 012777 010020 170724 ov #MEXT! SEND, aTXCSR 
(2) :SET MODE,# OF BITS,PARITY SENSE,® LOAD SYNC REG 
(2) 011002 012777 027426 170712 MOV #SYN EXT! IGHT !EVEPAR! 26, @PARCS 
(1) 011010 016703 170702 MOV RXDBUF sSETUP FOR ERROR MSG 
(1) 011014 005004 CLR RG Me FOR DATA CHAR CREATION 
(1) 011016 110477 170710 MOVB R4, aTXDBUF sLOAD CHARACTER 
(1) 011022 052777 000020 170662 BIS #SYNSCH. gORXCSR SSET SEARCH SYNC 
(1) :GET INTO SYNCRONIZATION 
(2) 011030 052777 020000 170670 BIS #CLK,aTX :POKE CLK UP 
(2) sWAIT FOR CABLE 'y Driven: DELAYS 
(2) 011036 016702 170056 MOV HOLD,R2 ;WAIT THIS AMT 
(2) 011042 005302 DEC R2 [WAIT 
(2) 011044 001376 ONE 72 
(2) 011046 042777 020000 170652 BIC  #CLK,aTXCSR :POKE CLK DOWN 
(2) sWAIT FOR CABLE 4 A TIVER wok 
(2) 011054 016702 170040 MOV HOLD,R2 ;'sAIT THIS AM 
(2) 011060 005302 DEC R2 SWAILT 
(2) 011062 001376 BNE 72 
(1) 011064 012767 000011 170030 1$: MOV #9. SHIFT :# OF SHIFTS 
(1) 011072 010400 MOV R4,RO EXPECTED 
(1) 011074 2s: 
(2) 011074 052777 020000 170624 BIS #CLK,a@TXCSR :POKE CLK UP 
(2) sWAIT FOR CABLE & DRIVER D DELAYS 
(2) 011102 016702 170012 MOV HOLD,R2 ;WAIT THIS AMT 
(2) 011106 005302 DEC R2 WAIT 
(2) 011110 001376 7 a 72 
(2) 011112 042777 020000 170606 BIC °° #CLK,aTXCSR ZPOKE CLK DOWN 
(2) sWAIT FOR ire s DRIVER DELAYS 
(2) 011120 016702 167774 MOV HOLD,R2 ;WAIT THIS AM 
(2) 011124 00530 DEC R2 WALT 


g | 


N 4 
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| (2) 011126 001376 BNE 2 
(2) EXIT... 
(1) 011130 005367 167766 BEC SHIFT id OF SHIFTS 
(1) 011134 022767 000003 167760 CMP #3, SHIF ZTIME TO LOAD NEXT CHAR ? 
(1) 011142 001003 BNE 33° ? 
(1) 011144 005204 INC RG ; GENERATE NEXT CHAR 
(1) 011146 110477 170560 MOVE  R4,aTXDBUF :LOAD NEXT CHARACTER 
(1) 011152 005767 167744 3$: TST SHIFT ;1S IT 0°? 
(1) 011156 001346 BNE 
(1) 011160 105777 170526 TSTB @RXCSR ;RXDONE = 1 ? 
(1) 011164 100401 BMI +4 
(1) 011166 104004 ERROR 4 : RXDONE SHOULD BE SET 
(1) 011170 017701 170522 MOV @RXDBUF ,R1 sACTUA 
(1) 011174 020001 CMP RO,R1 s COMPARE. EXP VS ACT 
(1) 011176 001401 + 
(1) 011200 002 ERROR 2 ZCHARACTERS SHOULD COMPARE 
(1) sCHECK OUT MODEM BYPASS JUMPE 
(1) 011202 105704 TSTB R4 sLAST CHARACTER ? 
(1) 011206 001327 BNE 1$ NO 
(1) 011206 4$: 

8725 zz THIS TEST PERFORMS A BINARY COUNT DATA PATTERN ON 
(1) +B0TH THE yi a M | -; alae LOGIC 
(1) ::MODE:SYNC EXTERNAL (SYNEXT 
(1) LENGTH: EIGHT PLUS PARITY 
(1) 32PARITY:ODDPAR 
3% 3 eMAINT. MODE :MEXT 
(5) jteteeeheeseereneeereereereetettentententententententententenete 
4) 011206 000004 $121 SCOPE 
(1) 011210 105767 167737 TSTB = -JMRBY =; JUMP_AROUND TEST ? 

(1) 011214 100116 BPL 4$ YES ? 

(3) 011216 052777 000400 170502 BIS #MRESET, aTXCSR sMASTER RESET 
(2) 011224 012777 020000 1706470 MOV #SYNEXT,@PARCSR :SET THE MODE 
(3) 011232 052777 000400 170466 BIS #MRESET.@TXCSR :MASTER RESET 
(2) rSET MAINTENANCE MODE & SEND 

(2) :NOTE:BIT OT DOWe CLK ARE CLEARED (MTDATA=0) 
(2) 011240 012777 010020 170460 MoV #MEXT! SEND, aTXCSR 

(2) :SET MODE,# OF BITS,PARITY SENSE.& LOAD SYNC REG 
(2) 011246 012777 027026 170446 MOV #SY NEXT :EIGHT!ODDPAR? 26, @PARC 

(1) 011254 016703 170436 MOV RXDBUF ,R3 sSETUP FOR ERROR MSG 
(1) 011260 005004 CLR RG 3FOR DATA CHAR CREATION 
(1) 011262 110477 170444 MOVB 4, aTXDBUF ZLOAD CHARACTER 
(1) 011266 052777 000020 170416 BIS #SYNSCH,ARXCSR :SET SEARCH SYNC 
(1) :GET INTO SYNCRONIZATION 

(2) 011274 052777 020000 170424 BIS #CLK,aTX XCSR :POKE fk uP 

(2) WAIT FOR CABLE & DRIVER DELA 

(2) 011302 016702 167612 MOV HOLD,R2 ;WAIT THIS iat 

(2) 011306 005302 DEC R2 WALT 

(2) 011310 001376 BNE 72 

(2) 011312 042777 020000 170406 BIC #CLK,aTXCSR sPOKE CLK DOWN 
(2) sWAIT FOR CABLE & DRIVER’ DELAYS 

(2) 011320 016702 167574 MOV HOLD,R2 :WAIT THIS AMT 


8 5 
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(2) 011324 005302 DEC R2 sWALT 
(2) 011326 001376 BNE 72 
(2) sEXIT... 
(1) 011330 012767 000011 167564 1$: MOV #9. :# OF SHIFTS 
(1) 011356 010400 ~ MOV R4, —" PTexpecteb 
(2) 011340 052777 020000 170360 BIS #CLK,a@TXCSR :POKE CLK UP 
(2) >WAIT FOR CABLE & DRIVER DELAYS 
(2) 011346 016702 167546 MOV HOLD,R2 ;WAIT THIS AMT 
(2) 011352 005302 DEC R2 [WAIT 
(2) 011354 001376 ONE Oe. - 
(2) 011356 042777 020000 170342 BIC | #CLK,aTXCSR :POKE CLK DOWN 
(2) “WAIT FOR. CALE g DRIVER DELAYS 
(2) 011364 016702 167530 MOV D,R2 ;WAIT THIS AMT 
(2) 011370 005302 DEC Roe SWAIT 
(2) 011372 001376 E - 
(2) EXIT... 
(1) 011374 005367 167522 DEC SHIFT ;# OF SHIFTS 
(1) 011400 022767 000003 167514 CMP #3,SHIFT sTIME TO LOAD NEXT CHAR ? 
(1) 011406 001003 BNE 3$ :NO ? 
(1) 011410 005204 INC RG ‘GENERATE NEXT CHAR 
(1) 011412 110677 170314 MOVB = R4 , aTXDBUF ;LOAD NEXT CHARACTER 
(1) 011416 005767 167500 3$: TST SHIFT ;1S IT 0? 
(1) 011422 001346 BNE 
(1) 011424 105777 170262 TSTB @RXCSR ;RXDONE = 
(1) 011430 100401 BMI 
(1) 011452 104 ERROR ‘y sRXDONE SHOULD BE SET 
(1) 011434 017701 170256 V @RXDBUF ,R1 T 
(1) 011440 02000 CMP RO R1  ;COMPARE EXP VS ACT 
(1) 011442 001401 BEQ 
(1) 011444 104002 ERROR 3° :CHARACTERS SHOULD COMPARE 
(1) > CHECK our MODEM BYPASS JUMP 
(1) 011446 105704 TSTB :LAST CHARACTER ? 
(1) 011450 001327 BNE "§ :NO 
(1) 011452 4$: 

8726 Z:THIS TEST VERIFYS WORD LENGTH SELECT OF ine 
(1) Z7PECEIVER SECTION, IT USES THE ERROR FLA 
(1) £:TO DETERMINE THAT IT WAS SELERTED. CORRECTLY 
(1) +: COVRRUN, RXERR) 
(1) +: MODE : ISYMOD 
(1) iS LENGTH: FIVE 
i pect 
(5) RORRReteheaeaeenererededeeeeeaeeeaaeneeeaeeeneneeeeceneeeereeer 
(4) 011452 000004 18122: SCOPE 
(3) 011454 052777 000400 170244 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 011462 012777 000000 170232 MOV MISYMOD,@PARCSR :SET THE MODE 
(3) 011470 052777 000400 170230 BIS #MRESET.aTXCSR :MASTER RESET 
(2) 7SET MAINT PATA. CLK, BREAK, @MAINTENANCE MODE 
(3) 011476 012777 064001 170222 #MTDATA!CLK!MINT!BREAK, @TXCSR 
(2) ;SET MODE .# OF BITS PARITY SENSE ,GLOAD SYNC REG 
(2) 011504 012777 000000 170210 MOV #ISYMOD! FIVE !NOPAR!O,aPARCSR 


pr 


c 5 
| CNDUV=A MACY 33061046) 1 }eoDEC~82 10:03 PAGE 61-40 
hempoungih 30-OCT-82 1 INITIALIZE THE COMMON TAGS SEQ 0054 
| —¢2) (011512 052777 000020 170172 BIS #SYNSCH,@PXCSR SET SYNC SEARCH 
| © sPOKE CLK TO GET RECEI IVER, INTO SYNCROIZATION.... 
/ = €2)-—«-011520 042777 020000 17020 BIC #clK at xCSR pOKE CLK DOWN 
| (2) 011526 052777 020000 17017 BIS KE CLK UP 
| 9) :POKE CLK TO GET “Thele. tno ruck gastiy 
(2) 011534 042777 020000 170164 BIC #CLK ,aTXCSR :POKE CLK DOWN 
(2) 011542 052777 920000 170156 BIS CLK OTXCSR SPOKE CLK UP 
(1) 611550 016703 1 Oiag MOV RXDBUF ,R “SET UP FOR ERROR MESSAGE 
(1) 011554 012700 00001 MOV #12,RO. sEXPECT 
(1) 011560 012767 000007 167334 MOV § 34 OF SHIFTS 
(1) 011366 012767 000124 167704 MOV #106, $TMP1 ‘DATA CHAR 
(1) 011574 004767 005352 JSR PC, RPOKE ‘SHIFT IN THIS CHAR 
(1) 011600 105777 170106 TST @RXCSR ;RXDONE ? 
(1) 011604 100401 BMI 
(1) 011606 104004 ERROR & :RXDONE SHOULD BE SET 
(1) 011610 017701 170102 MOV @RXDBUF ,R1 sACTUA 
(1) 011614 020001 CMP RO R1 ‘sCOMPARE EXPECTED VS. ACTUAL 
(1) 011616 001401 BEQ .+ 
(1) 011620 104002 ERROR 2 ;RECEIVED DATA DID NOT MATCH 
(1) SEXPECTED DATA = CHECK MAINT DATA 
(1) SOR RECEIVER LOGIC 
(1) 011622 012767 000007 167272 MoV #7, SHIFT :# OF SHIFTS 
(1) 011630 012767 000124 167642 MOV #124, STMP1 :DATA CHAR 
(1) 011636 004767 005310 JSR KE SHIFT IN THIS CHA 
(1) zNOW SHIFT IN A SECOND. CHARACTER” wi THOUT READING RRDBUF 
(1) 011642 012767 000007 167252 MOV #7, SHIF 34 OF SHIFTS 
(1) 011650 012767 000124 167622 MOV mde, setae :DATA CHAR 
(1) 011656 004767 00527 JSR PC .RPOKE SSHIFT IN THIS CHAR 
(1) 011662 012700 14001 MOV 4140000112, RO EXPECTED DATA PLUS 
(1) ERXERR & OVRRUN 
(1) 011666 017701 170024 MOV @RXDBUF ,R1 ACTUAL 
(1) 011672 020001 CMP RO,R1 ‘sCOMPARE EXP VS. ACT 
(1) 011674 001401 + 
(1) 011676 104002 ERROR 2 :SPECIFICALLY LOOK AT RXERR & 
(1) SOVRRUN BITS... THEY BOTH SHOULD BE SET 
8727 zi:THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
(1) i :RECEIVER SECTION IT USES THE ERROR FLAGS 
(1) 3310 DETERM — THAT IT WAS SELERTED CORRECTLY 
(1) 33 “AxERR) 
(1) : ;MODE : ISYMO 
(1) 3 SLENGTH: Five 
i se 
(5) 22 eREREReeREReReeeetetenereeeeeararaereneeeneearererenereneeeeeee 
(3) 011700 000004 TST23: SCOPE 
(3) 011702 052777 000400 170016 BIS MMRESET,@TXCSR ;MASTER RESET 
(2) 011710 012777 000000 170004 MOV MISYMOD.@PARCSR :SET THE MODE 
(3) 011716 052777 000400 170002 BIS WMRESET.aTXCSR :MASTER RESET 
(2) 7SET MAINT DATA,CLK,BREAK, MAINTENANCE MODE 
(2) 011724 012777 064001 167774 MOV AMTOATA! CLK! MINT BREAK aTXCSR 
(2) :SET MODE .# OF BITS.PARITY SENSE ,GLOAD SYNC REG 
(2) 011732 012777 000000 167762 MOV #ISYMOD!F IVE 'NOPAR!O,aPARCSR 


f 
CNDUV=A MACY11 30(1046) 14=DEC=-82 10:03 PAGE 61-41 
“CNDUVA. M11: 30-OCT-82 12:45 INITIALIZE THE COMMON TAGS SEQ 0055 
| (2) 0117460 052777 000020 167744 BIS WSYNSCH,@RXCSR ;SET SYNC SEARCH 
| 3) -POKE CLK TO GET RECEI EVER. INTO SYNCROIZATION.... 
(3) 011746 042777 020000 167752 BIC #CLK.at XCSR :P POKE CLK DOWN 
(2) 011754 052777 020000 167744 BIS #CLk,aTXCSR KE CLK UP 
(3) :POKE CLK TO GET tocle INTO syuchoNt FAS ION 
(2) 011762 042777 020000 167736 BIC #CLK,aTXCSR :POKE C CLK D 
(2) 011770 052777 020000 167730 BIS #CLK,aTXCSR SPOKE CLK UP 
(1) 011776 016703 167714 MOV RXDBUF ,R : SET up’ FOR ERROR MESSAGE 
(1) 012002 012700 000037 MOV #37,RO ;EXPECTE 
(1) 912 012767 000007 167106 MOV #7,5 34 OF SHIFTS 
(1) 012014 012767 000176 167456 MOV #176, $TMP1 SDATA CHAR 
(1) 012022 004767 005124 JSR K sSHIFT IN THIS CHAR 
(1) 012026 105777 167660 TSTB  a@RXCSR ;RXDONE ? 
(1) 012032 100401 BMI i*4 
(1) 012034 104004 ERROR : RXDONE SHOULD BE SET 
(1) 012036 017701 167654 MOV SRXDBUF , 1 SACTUA 
(1) 012042 020001 CMP RO,R1 —§;COMPARE EXPECTED VS. ACTUAL 
(1) 012044 001401 BEQ .+ 
(1) 012046 104002 ERROR 2 sRECEIVED DATA DID NOT MATCH 
(1) TEXPECTED DATA = CHECK MAINT DATA 
(1) [OR RECEIVER LOGIC 
(1) 012050 012767 000007 167044 MOV #7, SHIFT :# OF LORIETS 
(1) 012056 012767 000176 167414 MOV #176, $TMP1 :DATA CHAR 
(1) O12 004767 005062 JSR PC ,RPOKE :SHIFT IN THIS CHA 
(1) yNOW SHIFT IN A SECOND CHARACTER ortnout READING RNDBUF 
(1) 012070 012767 000007 167024 MOV #7, SHIFT :# OF SHIFTS 
(1) 012076 012767 000176 167374 MOV 76 tne :DATA CHAR 
(1) 012104 004767 00504 JSR SSHIFT IN THIS CHAR 
(1) 012110 012700 14003 MOV 9140000137, RO BAER TED DATA PLUS 
(1) 012114 017701 167576 MOV @RXDBUF ,R1 * ACTUAL 
(1) 012120 020001 CMP RO,R1  :COMPARE EXP VS. ACT 
(1) 012122 001401 BEQ ail 
(1) 012124 02 ERROR 2 a srecie CMY LOOK AT RXERR & 
(1) SOVRRUN BITS... THEY BOTH SHOULD BE SET 
8728 z:THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
(1) S:RECEIVER SECTION, IT USES THE ERROR FLAGS 
(1) 1:70 DETERMINE THAT IT WAS SELECTED CORRECTLY 
(1) 33 (OVRRUN, RXERR) 
(1) DE: 1SYMOD 
(1) 3 LENGTH: FIVE 
Ht "ae 
(5) 23 eReReneheeeeeeeeeeeereeereredeeaenenaneneeeeneaeererereeetere 
(4) 012126 000004 TS124: SCOPE 
(3) 012130 052777 000400 167570 BIS WMRESET, a@TXCSR MASTER RESET 
2) 012136 012777 000000 167556 MOV MISYMOD, @PARCSR :SET THE MODE 
(3) 012144 052777 000400 167554 BIS WMRESET.aTXCSR :MASTER RESET 
(2) :SET MAINT DATA,CLK BREAK SMAINTENANCE MODE 
(2) 012152 012777 064001 167546 MOV §#MTDATA!CLK!MINT!BREAK,aTXCSR 
(2) :SET MODE .# OF BITS PARITY SENSE GLOAD SYNC REG 
(2) 012160 012777 000000 167534 MOV #ISYMOD!F IVE 'NOPAR!0,aPARCSR 


E 5 
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(CNDUVA.MI1 = 30-OCT-82 12:45 INITIALIZE THE COMMON TAGS SEQ 0056 
(2) 012166 052777 000020 167516 BIS WSYNSCH,@RXCSR ;SET SYNC SEARCH 
(3) -POKE CLK TO GET RECEI EIVER INTO SYNCROIZATION. ... 
(2) 012174 06277 020000 167524 BIC #cLK “at KCSR :POKE cL DOWN 
(2) 012202 052777 020000 167516 BIS XCSR KE CLK UP 
(2) :POKE CLK TO vET *ToGie. INTO SYNCRONIZATION 
(3) 912210 042777 020000 167510 BIC #CLK,aTXCSR POKE CLK DOWN 
(2) 012216 052777 020000 167502 BIS act. OTKCSR tPOKE CLK UP 
(1) 012824 016703 167466 MOV RXDBUF ,R3 “SET UP FOR ERROR MESSAGE 
(1) 012230 012700 000000 MOV #0,RO  sEXPECT 
(1) 012234 012767 000007 166660 MOV 7# OF SHIFTS 
(1) 012242 012767 000100 167230 MOV #100 STMP1 SDATA CHAR 
(1) 012250 004767 004676 JSR PC ,RPOKE SSHIFT IN THIS CHAR 
(1) 012254 105777 167432 TSTB  @RXCSR ;RXDONE ? 
(1) 012260 100401 BMI +4 
(1) 012262 104004 ERROR & :RXDONE SHOULD BE SET 
(1) 012264 017701 167426 MOV @RXDBUF ,R1 ZACTU 
(1) 012270 020001 CMP RO,R1 —;COMPARE EXPECTED VS. ACTUAL 
(1) 012272 001401 BEQ +8 
(1) 012274 104002 ERROR 2 RECEIVED DATA DID NOT MATCH 
(1) XPECTED DATA = CHECK MAINT DATA 
(1) TOR RECEIVER LOGIC 
(1) 012276 012767 000007 166616 MOV SHIFT 3# OF SHIFTS 
(1) 012304 012767 000100 167166 MOV #160 STMP1 DATA, CHAR 
(1) 012312 004767 004634 JSR C,RPOKE :SHIFT IN THIS CHA 
(1) zNOW SHIFT IN A SECOND CHARACTER’ WITHOUT READING RRDBUF 
(1) 012316 012767 000007 166576 MOV #7, SHIFT 34 OF SHIFTS 
(1) 012324 012767 000100 167146 MOV #160" $TMP1 ‘DATA A CHAR 
(1) 012332 004767 004614 JSR PC .RPOKE [SHIFT IN THIS CHA 
(1) 012336 012700 140000 MOV #140000!0,R0 ‘exe 0 DATA Plus 
(1) 012342 017701 167350 MOV @RXDBUF RI ACTUAL 
(1) 012346 020001 CMP RO.R1 ‘:COMPARE EXP VS. ACT 
(1) 012350 001401 BEQ +4 
(1) 012352 104002 ERROR 2 :SPECIFICALLY LOOK AT RXERR & 
(1) SOVRRUN BITS...THEY BOTH SHOULD BE SET 
8729 
(2) END OF PASS 
(2) TYPE NAME OF TEST 
(2) CUPDATE PASS COUNT 
(2) [CHECK FOR EXIT TO ACT=11 
(2) SRESTART TEST 
(2) 012354 000004 .EOP: SCOPE 
(2) 012356 004767 000340 JSR PC, CKSWR 
(2) 012362 104401 TYPE ; TYPE NAME OF TEST 
(2) 012364 015512 MEPASS 
(2) 012366 104413 012620 CONVRT ,OUTCRY 
(2) 012372 104401 015331 TYPE {DEVICE 
(2) 012376 105767 166550 TSTB  MULTD  ;ARE YOU RUNNING MULTIPLE DEVICES ? 
(2) 012402 001511 BEQ ccc [NO, JUMP AROUND 
(2) 012404 005767 166556 TST ACTREG :ARE ANY DEVICES ACTIVE ? 
(2) 012410 001007 BNE RUNIT YES 
(2) 012412 104401 015343 TYPE ,MCOW :NO 
(2) 012416 016700 166544 MOV ACTREG,RO sDISPLAY ACTREG 
(2) 012422 000000 HALT SSELECT SOMETHING TO RUN @ ACTREG: 
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REPLAY: 


OUTCRY: 


SENDAD: 


RESTRT: 


10:03 PAGE 61-43 
INITIALIZE THE COMMON TAGS 


ata SWITCHES & HIT CONTINUE (PUT SWOO =1 
«STAR i. pata ART OVER AGA 


MP 
ADD #10,BAS 
ADD #10, BASE LV 
CLC 
ROL ROTADD 
BCS 2$ 

TO BE 
BIT ROTADD ,ACTREG 
BEQ RUNIT ;IF NOT 
JSR PC, 
JMP RESTRT 
MOV #1,ROTADD 
MOV 
MOV KEEPIV,BASEIV 
JSR REPL Y 
BR ccc JUM 
MOV BASEADD, bUBASE 
JSR PC ,DUADDR 
MOV BASEIV,DURIV 
ADD #2,BASELV 
mov BASEIV,DURIS 
MOV BASEIV,DUTIV 
ADD #2,BASEIV 
MOV BASEIV,DUTIS 
MOV DURIV,BASEIV 
RTS PC 
1 
.BYTE 6,2 
RXCSR 
CLR STSTNM 
CLR SERRPC 
CLR SERFLG 
INC PASCNT 
MOV PASCNT,LIGHTS 
MOV PASCNT.SPASS 
MOV a442,Ri 
BEQ RESTRT 
RESET 
RESET 
JSR PC,(R1) 
NOP 
NOP 
NOP 
MOV #TST1+2,$LPADR 
JSR PC, CKSWR 
JMP : 


SEQ 0057 


IN..2.-YOU De SELECTED EVERYTHING 
;NEXT BLOCK (ADDRESSES) 
NEXT BLOCK (VECTORS) 


:UP ie raat s POINTER 
e1S IT DEVIC 


THE LAST 

TESTED IN THIS PASS ? 
TEST THIS ir. FOR ACTIVE STATUS 
ACTIVE, aie wee pan DDRESS 


; CALCUL ARAME TERS 
~~ IT WAS A ACTIVE, TEST _— DEVICE 
t, ET UP ROTATING 
NTER FOR NEXT RL TIPLE “PASS 


POIN 
KEEPADD, BASEADD sRESTORE BASE ADDR 


RESTORE BASE INTERRUPT VECTO 4 
:CALC NEW PARAMETERS 

OUND REPLAY 
SET UP FOR NEW ADDRESSES 
;CREATE NEW ADDRESSES 
;CREATE DURIV 


sCREATE DURIS 
sCREATE DUTIV 
sCREATE DUTIS 
RESTORE 


CLEAR TEST NUMBER 


sDISPLAY PASS en 

PASS COUNT TO APT 

>CHECK FOR ACT=11 OR DDP 
IF NO CONTINUE TESTING 


LOAD LAST ADDR 


CHECK SWITCH REGISTER ROUTINE. 
CHECKS TO ALLOW FOR <*G> TO ALLOW 
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INITIALIZE THE COMMON TAGS 

zTHE CHANGING OF LOCATION 176 
CKSWR: TST arse 

BN 


E OuT 
CAP #SUREG, SUR ; SOFTWARE SWR PRESENT? 
TSTB = aSTKS [CHECK TTY READY 
BPL Ou ‘NO==LEAVE 
MOV asTKkB, .MSG [GET CHARACTER 
BIC #177600,.MSG § :STRIP JUNK 
CMPBsé#7, . MSG [1S IT <*G> ? 
BNE out NO 
TYPE ,MCNTG 
CNTLU: COM AARDSW 
TYPE ,MMSWR 
CONVRT 
SWREGL 
INSTR, MMNEW 
PARAM 
177777 
SWREG 
-BYTE 0,1 
OUT: CLR aaRDSW 
RTS PC 
RDSW: WORD 
SWREGL: 1 
BYTE 6.2 
SWREG 
5 


sCHECK FOR FREEZE ON CURRENT DATA 


-SCOP1: JSR PC, CKSWR 
oe #SWO9,aSWR 


Q 
MOV LOCK, (SP) 
1$: R 
-SBTTL TYPE ROUTINE 


Peer iiiiiiiiririiiititiiititititisy) 
z*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
;*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
$: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

$ SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


2 *NOTE 
; *NOTE 
a 


S*CALL: 
[*1) USING A TRAP INSTRUCTION 
- TYPE ,MESADR T:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


*OR 
it TYPE 
oe ME SADR 
a 


SEQ 0058 
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CNDUVA.M11 30-OCT-82 12:45 TYPE ROUTINE SEQ 0059 
(2) 013072 105767 166361 $TYPE: TSTB  $TPFLG z1$ THERE A TERMINAL? 
(2) 013076 100002 BPL 1$ FY 
(2) 013100 000000 HALT 3sHALT HERE IF NO TERMINAL 
(2) 013102 000430 BR 3s ; LEAVE 
(2) 013104 010046 1$: MOV RO,-(SP) TSAVE RO 
(2) 013106 017600 000002 MOV @2(SP),RO 3:GET ADDRESS OF ASCIZ STRING 
(2) 013112 122767 000001 166426 CMPB  =s« MAPTENV,$ENV =: : RUNNING IN APT MOD 
(2) 013120 001011 BNE =:NO,GO CHECK FOR APT CONSOLE 
(2) 013122 132767 000100 166417 BIT8 §#APTSPOOL,SENVM 33 SPOOL L MESSAGE TO APT 
(2) 013130 001405 BEQ $ t:NO,GO CHECK FOR CONSOLE 
(2) 013132 010067 000004 MOV RO,61$ T:SETUP MESSAGE ADDRESS FOR APT 
(2) 013136 004767 164644 JSR PC. SATY3 33 SPOOL MESSAGE TO A 
(2) 013142 000000 61$:  .WORD iiMESSAGE A DRESS 
(2) 013144 132767 000040 166375 62$: BITB  #APTCSUP,SENVM CONSOLE SUPPRESSED 
(2) 013152 001003 BNE :i¥eS, SKIP TYPE OUT 
(2) 013154 112046 2s: MOVB {R0)+,-(SP) H CHARACTER TO BE TYPED ONTO STACK 
(2) 013156 001005 BNE ‘oR IF IT ISN'T THE TERMINATOR 
(2) 013160 005726 TST (sP)+ HIF TERMINATOR POP IT OFF THE STACK 
(2) 013162 012600 60$: MOV (SP)+,RO SRESTORE RO 
(2) 013164 062716 000002 3$: ADD #2, (SP) 3 ADJUST RETURN PC 
(2) 013170 000002 RTI TURN 
(2) 013172 122716 000011 CMPB Ss HT, (SP) t:BRANCH IF <HT> 
(2) 013176 001430 BEQ 
(2) 013200 122716 000200 CMPB es CRLF, (SP) ::BRANCH IF NOT <CRLF> 
(2) 013204 001006 BNE 
(2) 013206 005726 TST (SP)+ 3zPOP <CR><LF> ta 
(2) 013210 104401 TYPE T:TYPE A CR AND L 
(2) 013212 001523 SCRLF 
(2) 013214 105067 000130 CLRB  $CHARCNT CLEAR CHARACTER COUNT 
(2) 013220 000755 BR 2$ t:GET NEXT CHARACTER 
(2) 013222 004767 000056 5$: JSR PC ,STYPEC ':GO TYPE THIS CHARACTER 
(2) 013226 126726 166224 6$: (MPR OCSFALLC.(SP)* 21S IT TIME FOR FILLER CHARS. ? 
(2) 013232 001350 BNE ::1F NO GO GET NEXT CHAR 
(2) 013234 016746 166214 $NULL,-(SP) $366 Tue tt Ena CHARS. NEEDED 
(2) 013240 105366 000001 7$: DECB =—s«AC SP) 33DOES A NULL NEED TO BE TYPED? 
(2) 013244 002770 BLT 6$ [BR IF NO=~GO POP THE NULL OFF OF STACK 
(2) 013246 004767 000032 JSR PC ,STYPEC 3360 TYPE A NULL 
(2) 013252 105367 000072 DECB © $CHARCNT [DO NOT COUNT AS A COUNT 
(3) 013256 000770 BR 7$ >: LOOP 
(2) sHORIZONTAL TAB PROCESSOR 
(2) 013260 112716 000040 8$: MOVB so #*-_«, (SP) is REPLACE TAB WITH SPACE 
(2) 013264 004767 000014 9$: JSR PC ,S$TYPEC +: TYPE A SPACE 
(2) 013270 132767 000007 000052 BIT8 #7.$CHARCNT +:BRANCH IF NOT AT 
(2) 013276 001372 BNE 9$ 7: TAB 
(2) 013300 005726 TST (SP)+ : POP SPACE OFF ASTac 
(2) 013302 000724 BR 2$ T NEXT CHARACTER 
(2) 013304 105777 166140 $TYPEC: TSTB a$TPS T:WAIT UNTIL PRINTER IS READY 
(2) 013310 100375 PL STYPEC 
(2) 013312 116677 000002 166132 MOVB 2(SP),a$TPB z:LOAD CHAR TO BE TYPED INTO DATA REG. 
(2) 013320 122766 000015 000002 CMPB  4#CR,2(SP) 3318 CHARACTER A CARRIAGE RETURN? 
(2) 013326 001003 BN RANCH 
(2) 013330 105067 000014 CLRB = S$CHARCNT tCYES-=CLEAR CHARACTER COUNT 


a a eee te iti ee - ee ee _ 


CNDUV=A_MACY11 30(1046) —_ 10:03 PAGE 61-46 


CNDUVA.M11 30-OCT-82 12 TYPE ROUTINE SEQ 0060 
(2) 013334 000406 BR STYPEX ZEXIT 
(2) 013336 122766 000612 000002 1$: CMPB ss #LF, 2( SP) t:1S CHARACTER A LINE FEED? 
(2) 013344 001402 BEQ STYPEX +:BRANCH IF YES 
(2) 013346 105227 INCB = (PC) + ‘:COUNT THE CHARACTER 
(2) 013350 000000 SCHARCNT: WORLD 0 :: CHARACTER COUNT STORAGE 
(2) 013352 000207 STYPEX: RTS PC 
(2) 
(3 
(2) sASCII STRING INPUT ROUTINE 
(2) 013354 017667 000000 000014 INSTR: MOV a(sP), .MSG ;PICK UP MESSAGE 
(2) 013362 062716 000002 ADD #2, (SP) : JUMP AROUND MESSAGE FOR RTI 
(2) 013366 105767 166154 TSTB =. SEN TAPT CONTROL 
(2) 013372 001036 BNE INSTR2 :YES NO TYPE 
(2) 013374 104401 .INST1: TYPE 
(2) 013376 000000 “MSG: 0 
(2) 013400 012704 016152 MOV #INBUF ,R4 :GET STARTING LOC OF INBUF 
(2) 013404 012703 000007 MOV 47, *MAX # OF CHARS 
(2) 013410 105777 166030 1$: TSTB a@STKS ;TTY FLAG 
(2) 013414 100375 BPL 1$ 
(2) 013416 117714 166024 MOVB a$TKB, (R4) :TAKE CHAR 
(2) 013422 142714 000200 BICB #200, (R4) :STRIP 
(2) 013426 121427 000025 CMPB ss (RG) . #25 tIS IT <*G> 
(2) 013432 001760 BEQ INSTi 
(2) 013434 122427 000015 CMPB (RG) +, #15 :CHECK FOR CR 
(2) 013449 00141 BEQ INSTR 
(2) 013442 105777 166002 2s: TSTB a$STPS ;TEST FLAG 
(2) 013446 100375 BPL $ 
(2) 013450 117777 165772 165774 MOVE  a$TKB,a$TPB ZECHO CHARACTER 
(2) 013456 005303 DEC R3 :D10 YOU TYPE TOO MANY CHARS ? 
(2) 013460 001353 BNE 
(2) 013462 104401 .INSTE: TYPE 
(2) 013464 015437 MOM 3? 
(2) 013466 000742 BR “INSTT =; RETRY 
(2) 013470 000002 INSTR2: RTI 
(2) ZCONVERT ASCII STRING TO OCTAL 
(2) 013472 011605 .PARAM: MOV (SP),R5 ;PUT CONTENTS OF SP INTO RS 
(2) 013474 012567 000162 MOV (R5)+,LOLIM :PUT LOW LIMIT INTO LOLIM 
(2) 013500 012567 000160 MOV (R5)+,HILIM [PUT HIGH LIMIT INTO HILIM 
(2) 013504 012567 000156 MOV (R5)*,DEVADR § :PUT STORE LOC INTO DEVADR 
(2) 013510 112567 000154 MOVB (R5)+,LOBITS | ;:PUT MASK INTO LOBITS 
(2) 013514 112567 000151 MOVB (R5)+,ADRCNT — ;PUT COUNT INTO ADRCNT 
(2) 013520 010516 MOV R5,(SP) ;RESTORE RETURN ADDR ON STACK FOR RTI 
(2) 013522 005005 PARAM1: CLR R5 
(2) 013524 012704 016152 MOV #INBUF ,R4 
(2) 013530 122714 000015 CMPB #15, (RG) -CR ? 
(2) 013534 001420 BEOQ PARERR ;YOU TYPED CR TOO SOON ! 
(2) 013536 121427 000060 1$: CMPB ss (RG) , #60 ;LOW LIMIT ASCII 0 
(2) 013542 002415 BLT PARERR 
(2) 013544 121427 000067 CMPB ss (RG) , #67 zHIGH LIMIT ASCII 7 
(2) 013550 003012 BGT PARERR 
(2) 013552 142714 000060 BICB #60,(R4) SCONVERT TO OCTAL 
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CNDUVA.M11 30-OCT-82 12:45 TYPE ROUTINE SEQ 0061 
(2) 013556 152405 BISB = (R4&) +, RS ZSTORE AWAY ITS AN OK CHAR 
(2) Bi eeey 122714 000015 CMPB #15, (R4) sCR ? 
(2) 013564 001414 BEQ LIMITS ;NOW CHECK FOR HIGH 8LOW LIMIT CONDS 
(2) 013566 006305 ASL RS sALLOCATE ROOM FOR NEXT CHAR 
(2) 013570 006305 ASL R5 
(2) 013572 006305 ASL R5 
(2) 013574 000760 BR 1$ 
($) 013576 122714 000015 PARERR: CMPB #15, (RG) 3CR? 
(2) 913602 001003 BNE 1208 
(3) 013604 005737 013036 TST aaRDSW iCK SWR USED 
(2) 013610 001023 BNE PARTI 
(2) 013612 104407 120$: INSTER ;RETRY 
+s) 013614 000742 BR PARAM1 
ts) sTEST TO SEE IF NUMBER IS WITHIN LIMITS 
(2) 013616 020567 000042 LIMITS: CMP RS,HILIM 
(2) 013622 101365 BHI PARERR ;THE # IS TOO HIGH 
(2) 013626 020567 000032 CMP RS,LOLIM 
(2) 013630 103762 BLO PARERR ;THE # IS TOO LOW 
(2) 013632 136705 000032 BITB LOBITS,R5 sTEST BY MASKINGTHE # 
(2) 013636 001357 BNE PARERR 
ts} sSTORE NUMBER AT SPECIFIED ADDRESS 
(2) 013640 016704 000022 MOV DEVADR,R4 ;GET STARTING ADDR OF 
(2) 013644 010524 1$: MOV RS, (R4S+ sSTORE AT THIS ADDR 
(2) 01 3646 962705 00000 ADD #2. 
(2) 01365 105367 00001 DECB ADRCNT ;HOW MANY TIMES + 2 ? 
(2) 013656 001372 BNE 1$ 
(2) 013669 000002 PARTI: RT 
(2) 013662 000000 LOLIM: 0 
(2) 013664 000000 HILIM: 0 
(2) 013666 000000 DEVADR: 0 
(2) 013670 000000 LOBITS: 0 
‘Ss; 013671 ADRCNT=LOBITS+1 
4 sSAVE PC OF TEST THAT FAILED AND RO-RS 
(2) 013672 016667 000004 165226 .SAVOS: MOV 4(SP),SAVPC 
ts) sSAVE RO-RS 
(2) 013700 010567 165570 $v0S: MOV RS, SREGS 
(2) 013704 010467 165562 MOV RG, SRE 
(2) 013710 010367 165554 MOV R3,$REG3 
(2) 013714 010267 165546 MOV R2.$REG2 
(2) 013720 010167 165540 MOV R1.$REG1 
(2) 013726 010067 165532 MOV RO. $REGO 
(2) 013730 000002 RTI 
(2) ;RESTORE RO-RS 
(2) 013732 016700 165524 .RESOS: MOV $REGO,RO 
(2) 013736 016701 165522 MOV SREG1.Ri 
(2) 013742 016702 165520 MOV SREG2,R2 
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(2) 01374 016705 165516 MOV SREG3,R3 
(2) 013752 016704 165514 MOV SREG4 RG 
(2) 013756 016705 165512 MOV SREGS.RS 
(3) 013762 000002 RTI 
(2) ZCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
(2) 013764 10440 .CONVR: TYPE 
(2) 013766 015443 MCRLF CR if 
(2) 013770 017601 000000 MOV a(SP),R1 gPICk up DATA POINTER 
(2) 013774 062716 000002 ADD 35° (Sb) -SET UP SP FOR RTI 
(2) 014000 012167 000130 MOV (R1)+,WROCNT | =PICK UP # OF WORDS FROM TABLE 
(2) 014004 112167 000126 1$: MOVB  (R1)+*,.CHRCNT :PICK UP # OF CHARS FROM TABLE 
(2) 014010 112167 000123 MOVB  (R1)+,SPACNT  :PICK UP # OF SPACES FROM TABLE 
(2) 014014 013167 000120 MOV @(R1)+,BINWRD :PICK Up ADDRESS OF MSG 
(2) 014020 016704 000114 2s: MOV BINWRD,R4 [SAV 
(2) 014024 116705 000106 MOVB CHRCNT RS : SAVE 
(2) 014030 072700 016214 MOV aTEMP RO ZSTARTING ADDRESS OF TEMP BLOCK 
(2) 014034 010403 3$: MOV i SAVE 
(2) 014036 042703 177770 BIC yr +63 ‘CLR OUT UPPER BITS .. SAVE CHAR 
(2) 014042 062703 000260 ADD #260, ry. Re onveRt® TO ASCII 
(2) 014046 110320 MOVB = R23, (RO) + sSTORE AWAY 
(2) 014050 006204 ASR RG ySHIFT FOR NEXT # 
(2) 014052 006204 ASR RG ‘DITTO 
(2) 014054 204 ASR R4 :DITTO 
(2) 014056 005305 DEC R5 'DEC CHAR COUNT 
(2) 014060 001365 BNE 3$ “DO IT AGAIN, ? 
(2) 014062 012703 016256 MOV #MDATA,RS STARTING ADDRESS OF MDATA BLOCK 
(2) 014066 114023 4$: MOVB =(RO),(R3)+ *REVERSE THE ORDER OF NUMBERS 
(2) 014070 105367 000042 DECB CHRCNT ;DEC CHAR COUNT 
(2) 014074 001374 BNE 4$ [D0 IT AGAIN ? 
(2) 014076 105767 000035 TSTB SPACNT : HOW MANY SPACES ? 
(2) 014102 001405 BEQ “TYPE # IF BR =0 
(2) 014104 112723 000240 S$: MOVB #240, (35+. "SPACE’' IN ASCII 
(2) 014110 105367 000023 DECB = SPACNT :DEC # OF A SPACE COUNT 
(2) 0141944 001373 BNE 5$ O IT AGAIN ? 
(2) 014116 105013 6$: CLRB ss (R23) ONSERT oO FOR TTY OUTPUT ROUTINE 
(2) 014120 104401 TYPE 
(2) 014122 016256 MDATA zIHls MESSAGE 
(2) 014124 005367 000004 DEC RDCNT ;HOW MANY # 
(2) 014130 001325 BNE i$ *DO THIS aouT INE AGAIN IF NOT EQUAL TO 0 
(2) 014132 000002 RTI :RETURN TO PROGRAM 
(2) 014134 000000 WRDCNT: 0 
(2) 014136 000900 CHRCNT: 0 
(2) 014137 SPACNT=CHRCNT +1 
(2) 014140 000000 BINWRD: 0 
(2) COMPARE THE FIRST CHARACTER JN THE TELETYPE INPUT 
(2) TBUFFER TO THE CHARACTERS ‘NW’ 
(2) [IF THE CHARACTER IS "N'' C CLEAR’ THE FLAG 
(2) SIF THE CHARACTER IS yt SEF THE FLAG 
(2) 014142 017605 000000 . SETFLG:MOV a(SP),RS 
(2) 014146 122767 000116 001776 CMPB eso #"N, INBuF r1S IT "W' ? 
(2) 014154 001002 BNE 1$ 


| 
| 
| 
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CNDUVA.M11 ©. 30-OCT-82 12:45 TYPE ROUTINE SEQ 0063 
(2) 014156 105015 CLRB = (RS) ~—s 000 
(2) 014160 000406 BR $ ate 
(2) 014162 122767 000131 001762 18: CMPB Os #' YY, INBUF s1S IT "'Y"" ? 
(2) 014170 001005 BNE 
(2) 014172 112715 177777 MOVB = #=1, (5) :377 
(2) 014176 062716 000002 2$: ADD =: #2, (SP) 
(2) 014202 000002 RTI 
(2) 014204 104407 3$: INSTER RETRY 
(2) 014206 000755 “ SETFLG 
(3) .SBTTL ERROR HANDLER ROUTINE 
(3) FERRARA ERAEEERERE TEER EE EEE AAEAEAEEAERERRAERRREREEREKEEEEE 
(2) TRTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(2) S*SAVE THE ERRCR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(2) [*AND GO TO SAVIT ON ERROR 
(2) ;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(2) 3*SW15= HALT ON 
(2) :*SW13=1 INHIBIT ERROR TYPEOUTS 
(2) *$W10=1 BELL ON ERROR 
(2) 3*$WO9=1 LOOP ON ERROR 
(2) :*CALL 
(2) 3+ ERROR N ;sERROR=EMT AND N=ERROR ITEM NUMBER 
A 
(2) 014210 SERROR: 
(2) 014210 105267 165167 7$: INCB ss SERFLG 3SET THE ERROR FLAG 
(2) 014214 001775 BEQ 7$ DON'T LET THE FLAG GO TO ZERO 
(2) 014216 016777 165160 165216 MOVs $TSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
(2) 014224 032777 002000 165206 BIT #B1T10.aSwR :3BELL ON ERROR? 
(2) 014232 001402 BEQ 1$ :NO = SKIP 
(2) 014234 104401 001516 TYPE $BELL 32RING BELL 
(2) 014240 005267 165146 1$: INC $ERTTL {COUNT THE NUMBER OF ERRORS 
(2) 014244 011667 165146 MoV (SP) ,SERRPC SEGET ADDRESS OF ERROR INSTRUCTION 
(2) 014250 162767 000002 165140 SUB a 
(2) 014256 117767 165134 165130 MOVB  aSERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
(2) 014264 032777 020000 165146 BIT § #B1T13,aSwR SKIP TYPEOUT IF SET 
(2) 014272 001004 BNE 208 TISKIP_TYPEOUTS 
(2) 014274 004767 000072 JSR PC, SAVIT 3760 TO USER ERROR ROUTINE 
(2) 014300 104401 001523 TYPE ,SCRLF 
(2) 014304 20S: 
(2) 014304 122767 000001 165234 CMPB = WAPTENV,SENV =; sRUNNING IN APT MODE 
(2) 014312 001007 BNE 2$ [INO,SKIP APT ERROR REPORT 
(2) 014314 116767 165074 000004 MOVE — SITEMB.218 [SET ITEM NUMBER AS ERROR NUMBER 
(2) 014322 004767 163470 JSR. PC, SAT :;REPORT FATAL ERROR TO APT 
(2) 014326 000 21$: BYTE 0 
(2) 014327 ___000 “BYTE 0 
(2) 014330 000777 228: BR 22$ APT ERROR LOOP 
(2) 014332 005777 165102 2$: TST — @SWR ::HALT ON ERROR 
(2) 014336 100001 BPL 3$ SISKIP IF CONTINUE 
(2) 014340 000000 HALT ::HALT ON ERROR! 
(2) 014342 032777 001000 165070 38: BIT #BITO9,aSwR 33LOOP_ON ERROR SWITCH SET? 
(2) 014350 001402 BEQ F NO 
(2) 014352 016716 165032 MOV —s SLPERR, (SP) SEFUDGE RETURN FOR LOOPING 
(2) 014356 005767 165132 4$: TST  SESCAPE T:CHECK FOR AN ESCAPE ADDRESS 
(2) 014362 0014 BEQ $ TBR IF NONE 
(2) 014364 O16716 165124 * MOV § $ESCAPE,(SP) 3 ;FUDGE RETURN ADDRESS FOR ESCAPE 
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ERROR HANDLER ROUTINE 


SAVIT: 


RO,HLDO 


R5S,HLDS 
STSTNM,HLD6 


; ;RETURN 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


FERRARA AAERAE ERE EE EEA EEEAEEAEEREERAERERERREAEERAEEEREREREREEEE 


TS THIS ROUTINE USES THE “ITEM CONTROL BYTE’’ (SITEMB) TO DETERMINE WHICH 
S*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE’ (SERRTB), 


;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 


1$: 


2$: 
3$: 


4$: 
5$: 
6$: 


7$: 


-$CRLF 
RO,-(SP) 


R 
a*SITEMB,RO 
1$ 


SERRPC (SP) 


SERRE, RO 


(SP)+,RO 
-SCRLF 
PC 


a(RO)+,-(SP) 
(RO) 

$ 

8$ 


R $ 
ASCIZ / / 


3 CARRIAGE RETURN’ & “LINE FEED"’ 
SSB TCKUP THE ITEM INDEX 


31F_ ITEM NUMBER IS ZERO, JUST 
Si TYP E THE PC OF THE ERROR 
33 SAVE Ry ae FOR TYPEOUT 


+ sERRO ADDRES 
33:GO_TYPE--OCTAL ASCIICALL DIGITS) 


7:GET OUT 
3 SADJUST THE INDEX SO THAT IT WILL 
ee WORK FOR THE ERROR TABLE 


:36ORM TABLE POINTER, 
3:PICKUP "ERROR MESSAGE"’ POINTER 
{SKIP TYPEQUT IF NO POINTER 

:TYPE THE “ERROR MESSAGE" 
Bh OR MESSAGE” POINTER GOES HERE 
iE VCARRIAGE RETURN NE FEED™ 
ICKUP "DATA HEADER’ POINTER 
:SKIP TYPEOUT IF 
3:TYPE THE "DATA HEADER" 
:3°DA POINTER GOES HERE 
Z:'CARRIAGE RETURN’ & "LINE FEED" 
IPICKUP “DATA TABLE POINTER 
3:G0 TYPE THE DATA 
;:RESTORE RO 
iz "CARRIAGE RETURN" & “LINE FEED" 
; RETURN 
SAVE @(RO)* FOR TYPEQUT 
$360 TYPE--OCTAL ASCITCALL DIGITS) 

S$ THERE ANOTHER NUMBER? 

3:BR_IF NO 

SETYPE TWO(2) SPACES 


3;LOOP 
32 TWO(2) SPACES 


SEQ 0064 
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(CNDUVA.M11 30-OCT-82 12:45 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0065 
| @ 014566 SEVEN 
| @ SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
| (3) FERRARA EAAAEEERE REE EEE EA EEAEAAAEEREEREREEAEERAEEEEEREEEEEEEEE 
2) tSTHIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 6-DIGIT 
| ¢5) S*OCTAL (ASCII) NUMBER AND TYPE IT. 
| ® jwSTYPOS=--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
7 

(3) ie MOV NUM, =(SP) NUMBER TO BE TYPED 

(3) ce TYPOS TECALL FOR TYBEOUT 

(5) te BYTE ON TIN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
| (5) te “BYTE :3M=1 ORO. 
| (3) oe 1=TYPE LEADING ZEROS 

@) ie :IQ=SUPPRESS LEADING ZEROS 

3 *® 

(3) te $TYPON===-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

2) j*$1¥POS OR $TYPOC 

(3) ie MOV «NUM, = (SP) s:NUMBER TO BE TYPED 

2) i* TYPON SSCALL FOR TYPEOUT 

2) {$TYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

(3) ie MOV —sNUM, =( SP) s:NUMBER TO BE TYPED 

2) te TYPOC ICALL FOR TYPEOUT 

(3) 014564 017646 000000 STYPOS: MOV a(SP),=(SP) ss PICKUP THE MODE 

2) 014570 11666? 000001 000211 MOVB © 1(SP)-$OFILL 3;LOAD ZERO FILL SWITCH 

(5) 014576 112667 000207 MOVE  (SP)+{$OMODE+1 ::NUMBER OF DIGITS TO TYPE 

(3) 014602 062716 000002 ADD —«- #2, (SP) STADJUST RETURN ADDRESS 

(5) 014606 000406 BR $TYPON 

(3) 014610 112767 000001 000171 S$TvPOc: Move #1,$0FILL :2$ET THE ZERO FILL SwITCH 

(3) 014616 112767 000006 000165 MOVB #6, SOMODE+1 ISET FOR SIX(6) D 

(2) 014624 112767 000005 000154 $TYPON: MOVB #5.SOCNT S3SET_THE ITERATION COUNT 

(5) 014682 010346 MOV —sRB.=(SP) ISAVE R3 

(5) 014634 010446 MOV —s-R& = (SP) SISAVE R4 

(5) 014636 010546 MOV RS .=(SP) ISAVE RS 

(5) 014640 116704 000145 MOVB  $OMODE+1,R4 GET THE NUMBER OF DIGITS TO TYPE 

(3) 014644 005404 NEG RG 

(3) 014646 062704 000006 ADD #6, RG :¢$UBTRACT IT FOR MAX. ALLOWED 

(3) 014652 110467 900132 MOVB - R4 SOMODE SAVE IT FOR USE 

(5) 014656 116704 000125 MOVB  SOFILL.-R4 33GET THE ZERO FILL SWITCH 

(3) 014662 016605 000012 MOV —« 12(SP) <RS PICKUP THE INPUT NUMBER 

(5) 014666 005003 CLR RS SICLEAR THE OUTPUT, WORD 

(5) 014670 006105 1$: ROL RS ;:ROTATE MSB INTO "C" 

(5) 014672 000404 BR 3$ 360 DO MSB 

(5) 014674 006105 2$: ROL RS ‘IFORM THIS DIGIT 

(3) 014676 006105 ROL R35 

(5) 014700 006105 ROL 5 

(3) 014702 010503 MOV —s R35, RB 

(3) 014704 006103 3$: ROL sé :2GET LSB OF THIS DIGIT 

(3) 014706 105367 000076 DECB - SOMODE S:TYPE THIS DIGIT? 

(5) 014712 100016 BPLSsS7S IF NO 

(3) 014714 042703 177770 BIC —«#177770,R3 :3GET_RID OF JUNK 

(3) 014720 001002 BNE 4$ STEST FOR 

(5) 014722 005704 TST RG SUPPRESS THIS 0? 
= 
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NDUVA.M11 30-OCT-82 12:45 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0066 
(2) 014724 001403 BEQ 5$ ::BR IF YES 
(3) 014726 005204 4$: INC RG S:DON'T SUPPRESS ANYMORE 0°S 
(2) 014730 05 03 000060 BIS #°0,R3 s:MAKE THIS DIGIT ASCII 
(2) 014734 052703 000040 5$: BIS a’ [R3 3: ASCII IF NOT ALREADY 
(2) 014740 110367 000040 MOVB R3,8$ 33 SAVE FOR TYPING 
(2) 014744 104401 015004 TYPE 360 TYPE THIS DIGIT 
(2) 014750 105367 32 7$: DECB ©=-« $OCNT : T BY 1 
(2) 014754 003347 BGT 2$ IB IF MORE TO DO 
(2) 014756 002402 BLT 6$ :B DON 
(2) 014760 005204 INC RG i INSURE | LAST DIGIT ISN'T A BLANK 
(2) 014762 000744 BR 2$ +:G0 DO THE LAST DIGIT 
(2) 014764 012605 6$: MOV (SP)+,R5 +t :RESTORE RS" 
(2) 014766 012604 MOV (SP)+,R4 sgRESTORE R4 
(2) 014770 012603 MOV (SP)+.R3 T:RESTORE R3 
(2) 014772 016666 000002 000004 MOV 2(SP).4(SP) t:SET THE STACK FOR RETURNING 
(2) 015000 012616 MOV (SP)+, (SP) 
(2) 015002 000002 RTI : RETURN 
(2) 015004 000 8$: .BYTE 0 {STORAGE FOR ASCII DIGIT 
(2) 015005 000 “BYTE 0 TERMINATOR FOR TYPE ROUTINE 
(2) 015006 000 SOCNT: .BYTE 0 3 30CTAL DIGIT COUNTER 
(2) 015007 000 SOFILL: .BYTE 0 33ZERO FILL SWIT TCH 
(2) 015010 000000 SOMODE: .WORD 0 ‘NUMBER OF DIGITS TO TYPE 
(2) ZENTER HERE ON POWER FAILURE 
(2) 
(2) 015012 $PWRDN: 
(2) 015012 010046 .PFAIL: MOV RO,=(SP) ZSAVE RO-R5 ON PROCESSOR STACK 
(2) 919014 010146 MOV R1.-(SP) 
(2) 015016 010246 MOV R2.=(SP) 
(2) 015020 010346 MOV R3,-(SP) 
(2) 015022 010446 MOV R4.=(SP) 
(2) 015024 010546 MOY R5,-(SP) 
(2) 015026 016746 162772 MOV 24.~(SP) 
(2) 015032 010667 164060 MOV SP. SAVSP ;SAVE STACK POINTER 
(2) 015036 012767 015050 162760 MOV WRESTART, 24 :SET UP FOR POWER UP TRAP 
(2) 015044 000000 HALT SHALT ON POWER DOWN NORMAL 
(2) 015046 000777 R ; 
(2) ZPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
(2) 015050 016706 164042 RESTAR: MOV SAVSP, SP ;RESTORE STACK POINTER 
(2) 015054 012605 MOV (SP)+-.R5 SRESTORE RO-R5S 
(2) 015056 012604 MOV (SP) +. RG 
(2) 015060 012603 MOV (SP)+-R3 
(2) 015062 012602 MOV (SP)+.R2 
(2) 015064 912601 MOV (SP)+-R1 
(2) 015066 012600 MOV (SP)+-RO 
(2) 915070 012767 015012 162726 MOV #.PFAIL,24 :SET UP FOR POWER FAILURE 
(2) 015076 106427 000300 MTPS #300 
(2) 015102 012706 001100 MOV #STACK,SP 
(2) 015106 005067 001102 CLR TEMP 
(2) 01511 005267 001076 INC TEMP 
(2) 015116 001375 NE - 
(2) 015120 104413 CONVRT 
(2) 015122 015144 PFTAB 
(2) 015126 104401 TYPE 


ae ae ee 6 eee 


6 


C 
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RESTART AT TEST IN PROGRESS/ 


eASCIZ <15><12><12>/DUV11 CNDUV-A TAPE F /<15><12> 
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eASCIZ <15><12>/1S OPT CLR ENABLE SWITCH E55-1 IN? (Y OR N)-/ 


eASCIZ <15><12>/# OF SYNC CHARS SELECTED ( 1 OR 2)-/ 
eASCIZ = <15><12>/1S SEC XMIT SWITCH E55-2 IN? (Y OR N)-/ 
eASCIZ <15><12>/1S SEC REC SWITCH E55=3 IN? (Y OR N)-/ 


eASCIZ = <15><12><12>/H315 CONNECTOR ON ?(Y OR N)-/ 
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174376 
163066 
003376 
040000 
163030 
163062 


163056 
040000 


000004 
016430 
177060 
000004 


000004 


000400 
162764 
162717 
162723 
001000 
162676 
162661 


163074 
163032 
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162772 
162724 


162707 
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162672 


SCOPE HANDLER ROUTINESTARS 


~SBTTL SCOPE HANDLER yg Mp iby, Ss 

3*THIS ROUTINE CONTROLS THE LOOPING OF gig HEE IT WILL INCREMENT 
s*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
3*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

ie THE — wall tm a ase BY THIS ROUTINE ARE: 


:*$W14=1 OP ON TEST 
:*SW11=1 INHIBIT ITERATIONS 
i #Su09=1 LOOP ON ERRO 
:s$w08=1 LOOP ON TEST IN SWR<7:0> 
ie SCOPE :;SCOPE=10T 
SSCOPE: 
:SCOPE LOOP AND INTERATION HANDLER 
. SCOPE: 
JSR PC, CKSWR 
CLR SERRPC ZCLEAR LAST ERROR P 
CMP aTST1#2,(SP) 31S SCOPE AT BEGINING OF TEST 1? 
BEQ $XTSTR 7YES NO LOOP. 
TTST: BIT #B1T14,aSWR sTHIS CODE IS FOR TESTING FOR BIT 14 
BEQ i$ [ON LSI WHICH SYSMAC CANNOT HANDLE 
MoV STSTNM.SLPADR 
TSTB = aSTKS KEYBOAPD DONE? 
BPL SOVER :BR I 
MOV asTke -2(SP) ELEAR DONE BIT 
1$: BIT T14,aSWR iL OOP ON PRESENT TEST? 
BNE soy TER “VES IF SwW14=1 
-HHHHASTART OF CODE FOR THE XOR TesTEResene 
$XTSTR: BR 6$ 31F RUNNING ON THE “'XOR'’ TESTER CHANGE 
+: THIS INSTRUCTION TO A "NOP’’ (NOP=240) 
MOV @WERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #5$, a#ERRVEC 33 SEX FOR TIMEOUT 
TST a#177060 :TIME OUT ON XOR? 
MOV (SP) +, a#ERRVEC : ;RESTORE THE ERROR VECTOR 
BR SSVLAD THE NEXT TEST 
5$: CMP (SP) +, (SP)+ ST OCeAR THE STACK AFTER A TIME OUT 


MOV (SP) + ,a#ERRVEC tty ue THE ERROR VECT 


BR THE PRESENT fest 
6$:;M##HHEND OF CODE FOR THE HOR "TeSTEnenaee 
BIT #81T08,aSwR LOOP ON SPEC. TEST? 


CMPB Os @SWR, STSTNM :3BR THE RIGHT TEST? — SWR<7:0> 


BEQ SOVER 33 

2s: ise SERFLG i :HAS AN ERROR OCCURRED? 
CMe SERMAX,SERFLG © 3;MAX. ERRORS FOR THIS TEST OCCURRED? 
Bt #81109, aSuR ::LOOP. ON ERROR? 

7$: MOV SLPERR, SLPADR 7:SET LOOP ADDRESS TO LAST SCOPE 

4$: CLRB = SERFLG 33ZERO THE ERROR FLAG 


SEQ 0069 
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162764 
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162770 
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CLR STIMES :3CLEAR THE NUMBER OF i soe TO MAKE 
BR 1$ zsESCAPE TO THE NEXT TEST 
3$: Bae #B1T11,aSwWR zzINMIBIT ITERATIONS? 
TST SPASS ie IF FIRST oatt OF PROGRAM 
BEQ 1$ INHIBIT ITERATIONS 
INC SICNT i INCREMENT ITERATION COUNT 
CMP STIMES,SICNT 33 CHECK THE NUMBER OF ITERATIONS MADE 
BGE SOVER 7BR IF MORE ITERATION REQUIRED 
1$: MOV #1,SICNT j:RE INITIALIZE THE ITERATION COUNTER 


MOV SMXCNT,STIMES ;5;SET NUMBER OF ITERATIONS TO DO 
SSVLAD: INCB STSTNM 3;COUNT TEST NUMBERS 

MOVB STSTNM,STESTN ;;SET TEST NUMBER IN APT MAILBOX 

MOV (SP) ,SLPADR 3:SAVE SCOPE LOOP ADDRESS 

MOV (SP) ,SLPERR 32SAVE ERROR LOOP ADDRESS 

CLR SESCAPE 23 CLEAR ry © eon) FROM ERROR ADDRESS 


MOVB SERMA ONLY mL OW ONE(1) ERROR ON NEXT TEST 
SOVER: MOV sTstane aDISPLAY + IDISPLA -T ST NUMBER 
MOV SLPADR, (SP) 33FUDGE RETURN ADDRESS 
4$: RTI 
BRW: 1407 
BRX: 432 
: § MAX. NUMBER OF ITERATIONS 


SMXCNT 
.SBTTL TRAP DECODER 


CIPI iii retire iriririritiriiiriiiiiitititititi ys 
Ze THIS ROUTINE WILL hg a of THE nase Sth OF re **TRAP’* INSTRUCTION 

USE IT TO INDEX THROUGH THE T TABLE FOR THE STARTING ADDRESS 
‘OF OTHE DESIRED ROUTINE. THEN USING ATE ADDRESS OBTAINED IT WILL 
7*GO TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) :SAVE RO 
MOV (SP), RO $IGET TRAP ADDRESS 
TST (RO) UP BY 2 
MOVB (RO) ,RO 33GET RIGHT BYTE OF ZRAP 
ASL RO :POSITION FOR INDEXING 
MOV STRPAD(RO).RO 3: INDEX TO TABLE 
RTS RO $:G0 TO ROUTINE 


zzTHIS IS USE TO HANDLE THE ‘‘GETPRI'’ MACRO 


STRAP2: MOV (SP) ,-(SP) 3 MOVE we PC DOWN 
MOV 4(SP) ,2(¢SP) He ps HE PSW DOWN 
RTI z;RESTORE THE PSwW 


-SBTTL TRAP TABLE 


s*THIS TABLE CONTAINS THE Seats ADDRESSES OF THE ROUTINES CALLED 
7*BY THE TRAP’ INSTRUCTION 


: ROUTINE 


STRPAD: .WORD $TRAP2 
$TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 


SEQ 0070 


$TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 


CNDUV=A_MACY11_30(1046) 
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10:03 PAGE 61-57 
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$TYPOS 
STYPON 


37 CALL=TYPOS 
3; CALL=TYPON 


+ CALL=SCOPI 


7: CALL=SETFLG 


TRAP*+3( 104403) 
TRAP +4 (104404) 


04405) 
0 
0 
1 
1 
1 
1 


TRAP*14 (104414) 


SEQ 0071 


TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 


FARRAR AEAAAAAAEEEAAEAEEEEEEAAEAERAEAAAERERERAEEEEREEEEEREEEE 


sUTILITIES 


STARA A AAA AARAAAEAAEEARER AERA AEAARAAAAAARERERAEREEEKEREEREEE 


THIS UTILITY CALCULATES PRIORITY LEVEL 
DULEV: ASL DUPRT ;SHIFT LEFT 


S UP e 
ASL DUPRT : 
ASL DUPRT : 
ASL DUPRT : 
ASL DUPRT : 
000020 MOV DUPRT,LESS1 :MOVE THIS TO LESS1 
000012 SUB #1,LES$S1 [CREATE LESS1 
000004 BIC #37,LESS1 *CLEAR TNZVC 
RTS PC 
DUPRT: PR5 
LESS1: PR ZLEVEL TO ALLOW INTERRUPTS 
:NEW DU ADDRESSES 
162666 DUADDR: hoy DUBASE .RXCSR =XXx0 
162656 MOV DUBASE,HRXCSR —-; XXX1 
INC DUBASE 
162646 MOV DUBASE,RXDBUF § ;XXX2 
162644 MOV DUBASE , *PARCSR =: XXX2 
162630 MOV DUBASE ,HRXDBUF :XXX3 
162626 mov DUBAS E-HPARCSR :XXX3 
162616 MOV DUBASE,TXCSR —-s XXX4 
INC DUBAS 
162606 MOV DUBASE,HTXCSR =: XXX5. 
162576 mov DUBASE,TXDBUF § :XXX6 
162566 MOV DUBASE ,HTXDBUF ;XXX7 
RTS PC 
DUBASE: 0 
zTHIS UTILITY POKES THE MAINT DATA BASED UPON THE 
Z INFORMATION CONTAINED IN $TMP1 AND IT IS 
‘SHIFTED IN BY THE CONTENTS OF SHIFT 
162546 RPOKE: BIC #MTDATA, aTXCSR 
CLR $TMP2 
ROR $TMP1  ;FORCE CARRY 
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ROR STMP2 
ASR STMP2 SH IFT IN 
BIC #BIT1S,STMP 
BIS STMP2,aTXCSR 
BIC #CLK,aTXCSR 
BIS #CLK ,aTXCSR 
DEC SHIFT 
BNE RPOKE 
RTS PC 
ODDS: 
LR TMP 
MOV #8.,(PC)+ 
4$: 0 
1$: ROR STMP2 
ADC STMP3 
DEC 4$ 
BNE 1$ 
ROR STMP3 
BCS 
BIS #BITS,STMP1 
Bre 
2s: MP1 
3$: 
EVEN TMP2 
CLR 
Vv #8.,(PC)+ 
4$: 
1$: ROR STMP2 
ADC STMP3 
DEC 4$ 
BNE 1$ 
ROR STMP3 
BCC 
th #BIT8,STMP1 
2$: STMP1 
3$: 
TRPREG: 
RTI 
POINT=. 
.=10 
SCLKVEC 
300 
-=140 
170000 
300 
-=POINT 
$CLKVEC: 
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;THIS wa eaeres ODD PARITY FOR AN 8 BIT CHAR 
mov pe 1,$TMP2 TEMP1 


PICK_UP CARRY a A BIT 15 
TO BIT 14 


LR BIT 15 
SPOKE MAINT DATA 
;POKE CLK 


3: SAVE 


SET ODD PARITY 


CLR EVEN PARITY 


#81T8,$T 
iS tne wo HAS ODD PARITY CHARACTER 


vets ee CALCULATES EVEN PARITY 4B AN 8 BIT CHARACTER 


sSAVE T 


SET EVEN PARITY 


CLR ODD PARITY 


BIC #8178, 
poe _ HAS EVEN PARITY CHARACTER 


RT 
ADD #2, (SP) ;ALLOW IT TO “‘CRUNCH’* INTO HLT BACK 
: IN MAIN PART OF THE PROGRAM 


sSAVE POINTER 
sLKVEC HANDLER 


: INTERRUPT HANDLER PRI 
:0DT START ADDRESS 
*RESTORE POINTER 


TYPE ,CLKMES 
HALT 


On 


SEQ 0072 


CNDUV=A_MACYT1 30(1046) 14=DEC-82 10:03 PAGE 61-59 
CNDUVA.M11 30-OCT-82 12:45 TRAP TABLE SEQ 0073 
(1) SESE 33 005015 045514 042526 CLKMES: .ASCIZ <15><12>/LKVEC INTERRUPT = DISCONNECT LTC / 
(1) 0174 020103 047111 042524 
(1) 017460 051122 050125 peels 
(1) 017466 020055 044504 041523 
(1) 017656 047117 042516 052103 
(1) 017462 046040 041524 000040 
8821 000001 END 


J 6 


CNDUV=A MACYT1 30(1046) 14=DEC=82 10:03 PAGE 62 
CNDUVA.M11 30-OCT-82 12:45 CROSS REFERENCE TABLE <= USER SYMBOLS 
AAA 003200 81568 
ABASE = 000000 8186 
ACDW1 = 000000 8186 
ACDW2 = 000000 8186 
‘ACPUOP= 000000 8186 
ACTREG 001166 B1sca* 8729 
‘ADDO = 000000 8186 
‘ADDUT = 000000 8186 
‘ADDW10= 000000 8186 
‘apbw11= 000000 8186 
peed 000000 8154 
‘ADDWTS= 000000 8184 
|ADDW14= 000000 8154 
ADDW1S= 000000 8184 
‘Andw = 000000 8184 
= 000000 8186 
ADDWS = 000000 8186 
ADDWS = 000000 8186 
ADDWS = 000000 8184 
ADDW? = 000000 8186 
ADDWB = 000000 8184 
ADDWS = 000000 8186 
ADEVCT= 000000 8186 
ADEVM = 000000 8184 
ADRCNT= 013671 87294 
= 000000 8156 
AENVM = 000000 8186 
AFATAL= 000000 8154 
= 000000 8184 
AMADR2= 000000 8184 
AMADRS= 000000 8184 
AMADR4= 000000 8184 
AMAMS1= 000000 8184 
AMAMS2= 000000 8186 
AMAMS3= 000000 8184 
AMAMS4= 000000 8184 
AMSGAD= 000000 8186 
AMSGLG= 000000 8186 
AMSGTY= 000000 8184 
AMTYP1= 000000 8184 
AMTYP2= 000000 8184 
AMTYP$= 000000 8184 
AMTYP4= 000000 3184 
APASS = 000000 8184 
APRIOR= 000000 8184 
APTCSU= 000040 7013# 8729 
APTENV= 000001 70138 8729 
PTS1Z= 000200 70138 8154 
APTSPO= 000100 70138 8729 
ASWREG= 000000 815% 
ATESTN= 000000 8184 
AUNIT = 000000 8184 
AUSWR = 000000 8184 
AVECT1= 000000 8184 
AVECT2= 000000 8184 
BASEAD 001154 8154+ 8729% 


SEG 9974 


NDUVA.M11 
a por ise 
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SS 
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BPTVEC= 000014 


S 
38 


R = 00001 
CRLF = 000200 
CTS = 020000 
DDISP = 177570 
DEVADR 013666 
DEVICE 015331 
DF1 00e 76 
DH1 00206 
DISPLA 001442 
DISPRE 000174 


CNDUV=A MACY11 a ef 


© | K 6 


we 10:03 PAGE 62-1 


81544" 
81544 


CROSS REFERENCE TABLE == USER SYMBOLS 


8729 


8795 


8163 


8797 8812 8814 


8225 8726 8727 §=©.8728 


93 8194 8 
19 8720 8 


8626*  8630* 8664 8668+ 8709 8718* 


8729s 


8275 
8723 


8719s 


8276 
8724 


8720* 


8307 
8725 


8721+ 


8309 
8726 


8317 
8727 


SEQ 0075 


8473 
8728 


CNDUV=A_MACY11_30(1046 
CNDUVA.M11 


NBUF 6152 
INIFLG 001172 


DT4 126 
DUADDR 017016 
DUBASE 017150 
DULEV 016742 
DUPRT 017012 
‘ee 001740 
/DURIV 001736 
DUTIS 001744 
DUTIV 001742 
EIGHT = 000 
EMTVEC= 000030 
—EM1 001762 
ene goenes 
fa) 00204 
EM4 001746 
ERRCNT 001114 
ERRVEC= 

EVENS 017324 
EVEPAR= 001400 
EVPAR = 000400 
FIVE = 
FRMERR= 020000 
GNS = geeenkee 
HDXEN = 000010 
HILIM 013664 
HLDO 001130 
HLD1 001132 
HLD2 001134 
HLD3S 001136 
HLD4 001140 
HLDS 001142 
HLD6 001144 
HOLD 001120 
HPARCS 001724 
HRXCSR 001714 
HRXDBU 001720 
HT = 000011 
HTXCSR 001730 
= Hes: 


30-0CT=8 


14=DEC-82 
2:4 
81544 
81544 8315 
81544 
81544 8248 
81544 
81544 
81544 8241 
81544 
81544 
8154 8729 
8154 8729* 
8759* 8760 
8154 87354 
8154* 8167 
8737* 8738 
81544 8167* 
8574* 8581 
81544 8166* 
8657*  8687* 
81544 8313* 
8394* 8401 
8649* 8659 
81544 8312* 
8478  8497« 
81544 163 
81544 

1544 

1544 

1544 
81544 

1544 
81544* 8729* 
88024 
81544 8722 
81544 
81544 8718 
81544 

729 
81544 
87294 
81544 8729* 
81544  8729« 
81544  8729« 
81544 8729« 
81544 8729« 
81544 8729 
81544 8729 
81544 8724 
81544 8756* 
81544 8750« 
81544 8755* 
81544 8729 
81544  8760* 
81544 8764* 

154 87294 
81544* 


8328 
8260 


8724 
8726 


8725 


10:03 PAGE 62-2 
CROSS REFERENCE TABLE == USER SYMBOLS 


8337 
8264 


8727 


8481 
8288 


8728 


L 6 


8506 


8 
8545 


8518 


8 
8605 


8525 


8754* 


8550 
8252* 
86 


8757* 


8735* 
8550* 
8619* 


8385* 
8622* 


8438« 
8725 


SEQ 0076 


8758 


8736* 
8573 
8646* 
Pet 


8456* 


“CNDUV=A MACY11_30(1046) _14=DEC-82 10:03 PAGE 62-3 


‘CNDUVA.M11— 30-OCT-82 12:45 
/INSTER= 104407 8154 87298 
INSTR = 106406 8154 87294 
HINSTR2 01347 87294 
| TOTVEC= 000020 8154#* 
| ISYMOD= 000000 81544 8726 8727 
\JMRBY 001153 8154#* 8222 8724 
\KEEPAD 001156 81544" 8729 
KEEPIV 001164 8154#* 8729 
LASTAD 001160 81544 
LESS1 017014 8740" 8741% 8742* 
= 000012 8154" 8729 
LIGHTS 001102 81544 8729 
LIMITS 013616 87294 
LKVEC = 000100 81548 
LOBITS 013670 87294 
LOCK 001110 1544 8729 
‘LOKFLG 001174 81544 
LOLIM 013662 87294* 
MCNTG 016117 87298 
MCOW 015343 87298 
MCRLF 015443 87294 
MDATA 016256 87298 
MEPASS 015512 87294 
MEXT = 010000 81544 8724 8725 
MEXTJ 016057 8154 87294 
MINT = 004000 81540 8163 8225 
MLASTD 015277 8154 87294 
MLOCK 015556 87294 
MMNEW 016140 87298 
MMSWR 016127 87298 
MMULT 015250 8154 87294 
MPFAIL 015446 87294 
015437 87298 
MR 015537 8154 87294 
MRANGE 015373 8154 87294 
MREGAD 015220 8154 87294 
MRESET= 000400 81544 8163 8225 
8720 8721 8722 
MSYNC 015611 8154 87294 
MTDATA= 040000 8154# 8163 8188 
MTITLE 015152 8154 87294 
MTSTPC 015543 8154 87294 
LTD 001152 81544 8729 
MVECTO 015205 8154 87294 
MWIRES 016000 8154 87294 
MWIRES 015730 8154 87294 
MWIRE6 015657 8154 87294 
NEXT 001106 81544 
NOPAR = 000000 B34" 8163 8225 
ODDPAR= 001000 81544 8723 8725 
D8 017240 8785¢ 
ODTST = 170000 81544 
CE 002610 81548 
OPTCLR 001151 81544 


728 
725 


87454 


8303 


8303 
8723 


8192 


8303 


8469 


8347 
8724 


8225 


8469 


M 6 
CROSS REFERENCE TABLE == USER SYMBOLS 


8718 


8383 
8725 


8270 


8545 


8719 


8425 
8726 


8274 


8605 


8720 


8469 
8727 


8726 


8718 


8721 


8542 
8728 


8727 


8719 


8722 


8544 


8728 


8720 


8723 


8605 


8771 


8721 


8726 


8718 


8726 


SEQ 0077 


8727 


8719 


8727 


N 
CNDUV=A_MACY11_30(1046) 14=DEC-82 10:03 PAGE 62-4 ' 


|CNDUVA.M11 30-OCT-82 12:45 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0078 
OuT 013030 87294 
OUTCRY 012620 87294 

MUL 003166 81544 

RUN= 04 81544 
PARAM = 104410 154 87294 
PARAM1 013522 87298 
PARCSR 001722 81544 8163* 8225* 8303+ 8469+ 8543+  8545* 8605* 8718* 8719%  8720* 8721*  8722* 

8723* 8724* 8725* 8726* 8727+  8728% 8753 
PAREN = 001000 81544 
PARER = 0100 81544 
PARERR 013576 87294 
ARTI 1366 87294 

PASCNT 001112 8154#* 8729* 
PFTAB 015144 87294 

Q = 177772 81544 
PIRQVE= 240 81544 
POINT = 017416 88204 
POPRO = 0126 81544 
POP1SP= 005726 81544 
POP2SP= 022626 81544 
PRO = 000000 81544 
PRI = 000040 81544 
PR2 = 000100 81544 
PRS = 000140 81544 
PR4 = 000200 81544 8745 
PRS = 000240 81544 8744 
PR6 = 000300 81544 
PR? = 000340 81544 
PS = 177776 81544 
PSW = = 177776 81544 
PUSHRO= 010046 81544 
PUSH1S= 005746 81544 
PUSH2S= 024646 81544 
PWRVEC= 000024 81544* 
RDSW 013036 87294 
RECACT= 004000 81544 8718 8719 8720 8721 
REPLAY 012524 87294 
RESTAR 015050 87294 
RESTRT 012704 87294 
RESVEC= 000010 81544 

S05 = 104412 87294 
RETURN 001104 81544* 8729 

ING = 040000 81544 

RINTEN= 000100 ey HA 8182 8206 8248 8260 8264 8288 8556 8576 8579 8631 8645 
ROTADD 001170 81544" 8729« 
RPOKE 017152 8726 8727 8728 87714 8781 
RTS = 000004 81544 
RUNA = *#eeee 5678 5862 6003 6417 
RUNB = *teeee J 5703 5871 6010 6426 
RUNC = *teeee 5728 5879 6017 6435 
RUND = *teeee J 5753 5888 6024 6444 
RUNE = *teeee J 5778 5898 6031 6453 
RUNF_ = 000000 56764 5803 5908 6038 6462 
RUNIT 012430 87294 
RXCSR 001712 81544 8164* 8172* 8173 8182* 8206*  8226* 8235 8241* 8248+ 8257 8260* 8264+ 


a a | ee ee ee +e 





| 


| 8 7 
“CNDUV=A MACY11_30(1046) _14=DEC-82 10:03 PAGE 62-5 
CNDUVA.M11 30-OCT-82 12:45 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0079 | 
| 8571 8576* 8579" 8588 8 606« 

720* 8721" B722* 8723" 7248 
03 8205. 8242 8285. «8287 
2287238724 «87258726 


co 
im 
a 
co 
a 


* 8696 
8729 = 8748 * 
8719 


|RXDBUF 001716 
| RXDONE= 000200 


1 
4 8605 8718 8719 8720 8721 8722 8723 8724 8725 


10* 8471* 8476* 8718+  8719*  8720* 8721+ 
28* 8780+ 


1544* 


(G2 00 90 C0 Gd Od G9 Gd 2 Go G2 G2 G9 Go Go G9 Go Co G9 00 G2. G9 09. 0.00 Co 
uw 
= 
©o 
~“ 
Nm 
oo 
= 


Op.0000 
Noe 
ys 
2zReR 
m 
NN 
NI 
o 


544 8729 


0 09 09 Go Co Co Cd Co Cd Co Co Co Cd Ou Od Od Co Cd Co Co Co Go Co Go Co CO 
Oe ee ee ee et ee ee ee ae ed ed ed ed ed ed ed ed 

w 

= 

3 





me ee ee + 


Cc 7 
“CNDUV=A MACY11_30(1046) 14=DEC-82 10:03 PAGE 62-6 


CNDUVA.M11 30-OCT-82 12:45 CROSS REFERENCE TABLE == USER SYMBOLS 
'SYNCNO 001146 8154H* 862 871 8719 8720 721 
'SYNEXT= 020000 81544 81 8 2 303 469 543 8545 = 8722.—Ss«8723 
'SYNINT= 030000 81548 8605 18 719 ~—- 8720 8721 
| SYNSCH= 000020 81548 8166 8 26 556 8606 718 8719 8720 8721 
| 8726 8727-872 
'SYSTST= 014000 81544 8554 8605 
'TBITVE= 000014 81548 
ITEMP 016214 87294 
TKVEC = 000060 81544 
TPVEC = 000064 81548 
TRAPVE= 000034 81544 
TRPREG 017410 88174 
TRIVEC= 000014 81548 
TST] 003374 8154 8161# 8729 
TSTI0 005622 85384 
TST11 00611 8604" 
TST12 006726 871 
TST13. 007232 87198 
TST14 007536 872 
TST15 01 2 87214 
TST16 010346 87224 
TST17, 010544 872 
TST2 003720 82214 
TST20 010742 87264 
TST21 011206 87258 
TST22 011452 8726" 
TST23. 011700 87278 
TST24 012126 87088 
TST 0043 3014 
TST4 004610 83454 
TST5 004752 83824 
TST6 005110 B424# 
TST? 005260 84678 
TTST 016336 87294 
TXCSR 001726 81544 8163* 8165* 8188  8192% 8193+ 81948 8225* 8227 
8303* 8307* 8309% 8315* 8317* 8325 8328 8337e  8347% 
8383* 8387* 8391% 8398* 8425  8429« 8446 8458  8469* 
8493 8499e 8506* 8515 8518 8525" 8542e 8544% 8554* 
8677* 8718% 8719% 8720* 8721* 8722" 8723* 8724% 8725« 
8771* 8777* 8778 8779« 
TXDBUF 001732 81544 8304* 8470* 8500* 8548*  8635* 8676" 8718* 8719* 
8724* 8725"  8762* 
TXDONE= 000200 81548 
TXINTE= 000100 81544 8351 8355 8361 8387 8391 8398 8429 8458 
8632 8644 8663 8677 
TYPE = 104401 815° 8729" 8820 
TYPOC = 104402 87294 
TYPON = 104404 87298 
TYPOS = 104403 87298 
SER = 81544 
VOID = 000001 81544 
WRDCNT 014136 8729#* 
ERO 012436 8729" 
$APTHD 002136 81544 
ASTAT= xeeeee 701 


$ 3 
$ATYC 000024 70134 


8724 
8722 


8725 
8723 


8724 


SEQ 0080 


8725 


8276 
8362 
8490 
8663* 
8758* 
8723+ 


8525 


i 
| CNDUV=A MACY11 
CNDUVA.M11 
SATY1 000000 
SATY3 000006 
SATY4 000016 
SAUTOB 001434 
SBASE 001602 
SBDADR 001422 
SBDDAT 001426 
SBELL 001516 
S$CDW1 001606 
$CDW2 001610 
SCHARC 0133550 
SCKSWR= seeeee 
SCLKVE 017416 
SCMTAG 001400 
SCM1 = 000006 
scm2 = 000014 
$CM3 = 000006 
$CM4 = 000006 
$c 001554 
SCRLF 001523 
SDDWO 001612 
SODW1 001614 
SDDW10 001636 
$DDW11 001640 
SDDW12 001642 
SDDW13 001644 
SDDW14 001646 
$DDW15 001650 
DW2 001616 
$D00w3 001620 
DW4 001622 
$SDDWS 001624 
DW6 001626 
SDDW7 001630 
$DDW8 001632 
SDDW9 001634 
SDEVCT 001536 
SDEVM 001604 
$E = 0 2 
SENDAD 012674 
SENV 001546 
SENVM 001547 
SERFLG 001403 
RMAX 001415 
SERROR 014210 
SERRPC 001416 
SERRTB 001652 
SERRTY 014430 
SERTTL 001412 
SESCAP 001514 
SETABL 001546 
SETEND 001652 
SFATAL 001530 
SFFLG 000244 
SFILLC 001456 
SFILLS 001455 


30(1046 
30-0CT-8 


) 
21 


8729 
8729 


8729 


8729 


d 7 
62-7 
CROSS REFERENCE TABLE == USER SYMBOLS 


8729 
8729 


SEQ 0081 


-_ --—- —_- ee ee ee — 


—E 7 
/CNDUV=A_MACY11_30(1046) 14=DEC-82 10:03 PAGE 62-8 


CNDUVA.M11 30-OCT-82 12:45 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0082 
'SGDADR 00142 81544 
SGDDAT 001424 1544 
| SGTSWR= keener 
/SHIBTS 002136 81544 
'SICNT 001404 8154"  8729* 
|SINTAG 001435 81548 
| SITEMB 001414 81544 8729 
'SLF 001524 81544 8729 
SLFLG 000243 70134* 
SLPADR 001406 81544" 8729* 
SLPERR 001410 81544 8729* 
SMADR1 001560 81544 
SMAD 001564 81544 
SMADRS 001570 81544 
SMADR4 001574 81544 
SMAIL 001526 81544 8729 
SMAMS1 001556 81544 
SMAMS2 001562 81544 
SMAMS3 0015 81544 
AMS4 001572 81544 
SMBADR 002140 81544 
SMFLG 000242 70134* 
SMSGAD 001542 7013* 81544 
SMSGLG 001544 7013* 81544 
SMSGTY 001526 7013* 81544 
SMTYP1 001557 81544 
SMTYP2 001563 81544 
SMTYPS 901280 81544 
SMTYP4 001573 81544 
SMXCNT 016652 87294 
= 684 87294 
SNULL 001454 81544 872 
SNWTST= 000000 81614 82214 83014 83454 83824  8424# 84674 85384 86044 87184 87198 8720# 87214 
87224 87234 87244 87254 8726# 8727# 87284 
SOCNT 015006 87294* 
015010 87294 
SOVER 016632 87294 
ASS 001534 81544* 8729* 
SPASTM 002144 81544 
SPWRON 015012 8154 87294 
SQUES 001522 81544 8729 
HR= seeeee 8729 
SRODEC= seeeee YJ 8729 
SROLIN= seeee0 | 8729 
CT= seeene 729 
SREGAD 001460 81544 
SREGO 001462 81544 8729« 
001464 81544 8729« 
ees 1466 81544  8729« 
001470 81544 8729+ 
R 001472 81544 8729« 
SREGS 001474 8154 8729s 
SR2A = eeeeee 8729 
SSAVRE= seeeee 8729 
$SCOPE 016320 8154 87294 
SSETUP= 000017 81544 8729 


————— 


SB. 


-CNDUV=A_MACY11_30(1046) 14=DEC=82 10:03 PAGE 62-9 
(CNDUVA.MIT = 30=0CT=82 12:45 CROSS REFERENCE TABLE == USER SYMBOLS 
'$STuP = 177777 81548 
SSVLAD 016576 87298 
'$SVPC = 0021 81548 
'SSWR = 177400 G495# 8154 8161 8221 830183458382 
| 720 8721 8722 8723 «8726 «= 8725S 8726 
'$SWREG 001550 81548 
SSWRMK= 729 
STESTN 001532 81548 87298 
STIMES 001512 8154#* 8729* 
$TKB 1446 154# 8729 
$TKS 001444 81548 8729 
STMPO 001476 81548 
$TMP1 001500 B154# 8184s 8190 6266" 8272+ 8726+ 8727 
® * 
$TMP2 001502 81548 8772* 8774* 8775" 8776* 8777 8785* 
STMPS 001504 81548 8786* 8790* 8793 8803* 8807+ 8810s 
STMP4 001506 81548 
STMPS 001510 8154 8559* 8563" 8564 8612* 8616" 8617 
STN = 000025 72528 81618 82218 83014 83458 83828 84248 
87214 87224 87234 87248 87258 87268 87278 
TPB 001452 81548 87298 
STPFLG 001457 81548 8729 
TPS 001450 81548 8729 
STRAP 016654 8154 87298 
$TRAP2 016676 87298 
TRP = 000015 87298 
STRPAD 016710 87298 
STSTM 00214 81548 
STSTNM 00140 8154#* 8729« 
STYPBN= *eeeee U 729 
STYPDS= eeeeee 8729 
$TYPE 013072 7013 87298 
STYPEC 013304 87298 
STYPEX 013352 87298 
$TYPOC 014610 87298 
STYPON 014624 87298 
$TYPOS 014564 87298 
$UNIT 00154 81548 
SUNITM 002146 81548 
$USWR 00155 81548 
$VECT1 001576 81548 
$VECT2 001600 81548 
$XTSTR 016402 8729 
SOFILL 015007 8729#* 
S40CAT= eeeeee Y 8729 
; = 017470 70134 81544 8174 8200 8208 8223 8236 
8354 8363 8390 8432 8447 8455 8484 
37028723 Boee «988 BYse BIS? Pe 
BEGIN 003310 8154" 8729 
“CONVR 013764 87298 
“EOP 012354 87298 
INSTE 013462 87298 
TINSTR 013354 87298 
“INST! 013374 7298 
“MSG 013376 87294" 


8467 
8728 


8773* 
8802+ 


8640« 
85384 


8710 
88204 


8538 8604 

8729 

8785 8795* 
8806* 

8641 8678+ 
86044 87184 


8718 


8797* 


8682+ 
87194 


SEQ 0083 


8719 


8802 


8683 
87204 


| ? 
CNDUV=A MACY11 30(1046 . 


| ) 14=DEC=82 10:03 PAGE 62-10 
‘CNDUVA.M11 30-OCT-82 12: 





2:45 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0084 

| PARAM 01347 87298 

/.PFAIL 01501 8154 87298 
| RESOS 013732 87294 

|.SAVOS B1z856 87294 

-SCOPE 016320 87294 

-SCOP1 013050 87294 

eSETFL 014142 87298 

START 002152 81544 8729 
-SASTA= seeeee 701 

-$X = 002136 81544 





| 


H 7 
CNDUV=A_MACY11_30(1046) Jecpec=Se 10:03 PAGE 63 


CNDUVA.M11 30-OCT-82 12:45 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0085 
COMMEN 1566# 81548 
ENDCOM 15784  8154@ 
ERROR 8154# 8175 8209 8210 8237 8249 8259 8291 8292 8321 8327 8356 8364 8411 8433 
B44 8449 8685 8492 8495 8507 8517 8566 8587 8594 8650 8691 8695 8702 8706 
8711 8718 8719 8720 8721 8722 £8723 8726 8725 8726 8727 8728 
ESCAPE 169 81544 
GETPRI 13128 81548 
GETSWR 17718 81548 
LT 44848 81548 
\NEWTST 16264 81544 8161 8221 8301 8345 8382 8424 8467 8538 8604 8718 8719 8720 8721 
| 8722 8723 —Ss«B724~—Ss«B8725—Ss«B726—s«B727~—S—s«OB'72B 
2153# 7013 8154# 
PRGE 8118% 8729 
PRGFRT 72538 8154 
PUSH 2145# 7013 81548 
[PUSSYF 79898 8724 8725 
'REPORT 54634 6494# 8154# 
|RSETUP = 74488 = 8163 8225 8726 = 8727 «8728 
| Stove Shee over 8221 8301 8345 8382 8424 8467 8538 8604 8718 8719 8720 8721 8722 
8723 8724 8725 8726 o35> 8728 8729 
$C1 6831" 8729 
| SETPRI 12798 81548 
'SETTRA 64934 87298 
SETUP = =—'1337# = 81548 
| SKIP 17334 4 ©681548 


1 8301 8345 8382 8424 8467 8538 8604 8718 8719 8720 
5 8726 8727 8728 8729 


TSETUP ocene 8303 8469 8605 8722 8723 8724 8725 


TYPBIN 20 81544 
TYPDEC 20584 81544 
TYPNAM 182 81544 


TYPOCT 19414 81544 8729 


8154 
SBINAR 7936# 8722 8723 8724 8725 


SCONVR 71384 8729 
NA 783748 
68854 8729 


; 
CNDUV=A _MACY11_30(1046) 14=DEC=82 10:03 PAGE 63-1 


CNDUVA.M11—- 30-OCT-82 12:45 CROSS REFERENCE TABLE == MACRO NAMES 
‘SMATCH «67574 «=8718 = 8719s 8720_— «8721 
‘SMRR 74358 
SMRRW 873834 
74188 

'SMSG 71018 = 8729 
SNEED 81068 8729 
‘SPARAM §7044# ©8729 
iSPFAIL 7183 8729 : 
‘SPOKE 75578 8307 8309 84673 84675 8718 8719 8720 8721 8722 8723 
|SPOKER 7562 8165 8227 8726 «87278728 

CNET 8016" 
|SRECAC 7496 

EG 72268 8729 


$R 

| $RESET 73798 §=6©8163 8225 8303 8347 8383 8425 8469 8542 8544 8605 8718 8719 8720 
2 8725 8726 8727 8728 

| SRXACT 74734 

SSCOPE 


$s 6836" 8729 
$SCOP1 7002" 8729 
SSETFL 6793 8729 
SSETVE 6602" 8154 
SSTART 66808 8154 
$STRIP 7 
YMBO 6518 8154 
SSYNCR 75684 8726 8727 8728 
STSINO 68439 8161 8227 8301-«8345.« 838284248467 ««BS3B«860GSB718.««B719.««8720—«872 
4 1 1 
ay Bees, 8724 «872587268727 «8728 
SVARIA 66188 ©8154 
DF 77048 
$WORDO 76548 8726 8727 8728 
DP 77328 
SSCMRE 81548 
SSCHTM = 81548 
Sneut 16628 BiSce 8161 8221-8301 8345. —«B382 8424 «BKB? «SSB B6OA S718 «—B719—«8720 
8722 8723 «8724 «= B25 «8726S B727 8728 
SSSET 87298 
SSSETM = 81548 
SSSKIP 17468 681548 
-EQUAT = 18 938 8154 
“HE ADE 1#@ 64928 
LINIT  5658# 8154 3820 
“SETUP 1213@ ©6492" = 8154 
“SWRHI 104 
“$ACT1 $0668 ©6496" 8154 
“SAPTB 51098 = 64948 «= 81548 
“SAPTH = 53708 §= 64948 = 8154 
“SAPTY 55478 64948 ©7013 
“SASTA 54178 
[SCATC «69328 «= 64928 
“SCMTA 10478 + 64928 +8154 
$DB2D 46868 


SEQ 0086 


8721 


8722 


8721 


CNDUV=-A_MACYT1 ROCLORG) 
CNDUVA M11 30-0CT 





.SERRO 27008 «649 
“Sernt 2 649 
“$MULT 452 
"$POWE 62298 «64938 
SRAND «663078 
“$RDDE 18 
"$RD0C 37978 
TSREAD «© 3395e 
‘TSR2A2 49580 
| .SSAVE zoene 
[$3820 47718 
[$3820 48748 
"$SCOP 4624548 64938 
"$SIZE 43614 
‘TSSUPR 49138 
"STRAP «40734 «64938 
“$TYPB «32878 
-STYPD 32094 
| “$TYPE gu928 





- ABS. 017470 000 


ERRORS DETECTED: 0 


J 7 
CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0087 


14=DEC=-82 10:03 PAGE 63-2 
12:45 


8729 
8729 


8729 


8729 


8729 
8729 


CNDUVA, penmyarcne a: Ore ene 


RUN-TIME: 17 16 1 


RUN-TIME RATIO: 89/34=2.5 
CORE USED: 43K (86 PAGES) 


